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1. EINLEITUNG 


Wenn man sich einen Rechner gekauft hat, stellt man bald 
fest, wie unangenehm es ist, daß der Rechner durch das 
Ausschalten alles vergißt, was man ihm mit viel Mühe 
beigebracht hat. Man braucht also eine Möglichkeit, was man 
dem Rechner beigebracht hat, sicher zu lagern, wenn dieser 


seine wohlverdiente Ruhepause macht. 


Da alles, was der Rechner weiß, aus Nullen und Einsen 
besteht, liegt es nahe, diese Informationen magnetisch 


aufzuzeichnen, zum Beispiel auf einer Cassette. 


Damit der Rechner aber das, was er einmal abgespeichert hat, 
wieder lesen kann, muß er es mit einem festen Format 
abspeichern, er muß dem Programm bestimmte Parameter 
mitgeben. Um das zu gewährleisten, ist im Rechner ein 


Programm fest eingebaut, das dies alles regelt. 


Wenn sie aber Ihre Bedienungsanleitung zur Hand nehmen, 
stellen Sie fest, daß dort über die Art und Weise, wie der 
C-64 oder VC 20 mit der Datassette arbeitet und wie Sie sie 


bedienen müssen, recht wenig steht. 


Dieses Buch nun soll Ihnen helfen, besser mit der Datassette 
arbeiten zu können und zu verstehen, wie der Computer mit 
ihr zusammenarbeitet. 


Anhand von vielen kleinen Beispielprogrammen möchte ich 
Ihnen weiterhin nahebringen, daß Sie mit der Datassette 
bedeutend mehr anfangen können, als das Handbuch vermuten 
läßt. Als krönenden Abschluß finden Sie im zweiten Teil 
dieses Buches ein komplettes, neues Betriebssystem zur 
Daten- und Programmspeicherung mit der Datassette. Dieses 
System arbeitet um einiges schneller als das eingebaute 
Betriebssystem, ja sogar schneller als eine 
Diskettenstation. Mit diesem Programmpaket möchte ich 


zeigen, daß für den privaten Personalcomputer der bedeutend 
preiswertere Cassettenrecorder meistens ausreichend ist, 
wenn man nur die richtige Software benutzt. 


Und nun noch ein Hinweis zur Benutzung dieses Buches: 


Alle in diesem Buch veröffentlichen Programme sind sowohl 
auf dem cC-64 als auch auf dem VC 20 lauffähig. Da es nicht 
bei allen Programmen möglich ist ein Programm zu schreiben, 
das auf den beiden Computern lauffähig ist, sind zwei 


Versionen abgedruckt. 


Bei Maschinensprache-Programmen sind jeweils ein 
ASSEMBLER-Listing, ein Basic-Lader für den cC-64 und ein 
Basic-Lader für den VC 20 abgedruckt, um eine möglichst 


große Benutzerfreundlichkeit zu erreichen. 


In den Basic-Programmen sind zur besseren Lesbarkeit alle 
Steuerzeichen übersetzt worden und in eckige Klammern 
gesetzt worden. Wenn Sie also HOME,RVSON in eckigen klammern 
lesen, müssen Sie die CLR/HOME-Taste drücken für HOME und 
dann die CTRL-Taste mit der Taste 9 für RVSON. 


2. DIE BEFEHLE ZUR DATASSETTEN-HANDHABUNG 


Das Commodore-Basic stellt Ihnen acht Befehle zum Arbeiten 


mit der Datassette zur Verfügung: 


1. SAVE Programme speichern 

2. LOAD Programme laden 

3. VERIFY Programme auf Richtigkeit überprüfen 
4. OPEN Eine Datei eröffnen 

5. CLOSE Eine Datei schließen 

6. PRINT# Einen Ausdruck senden 

7. INPUT# Einen Ausdruck einlesen 

8. GET# Ein einzelnes Byte einlesen 


Im folgenden möchte ich die einzelnen Befehle näher 
beschreiben. 


2.1 SAVE 


Mit diesem Befehl veranlassen Sie den Computer, das im 
Speicher befindliche Programm abzuspeichern. Um zu wissen, 
an welcher Stelle das Programm im Speicher steht, gibt es in 
Ihrem Rechner einige Speicherstellen, in denen steht, wo das 


Programm beginnt und wo es endet. 


Der Rechner legt sich nämlich sofort nach dem Einschalten 
ein "Merkheft" an. Dieses Heft hat vier Seiten (O0 - 3), 
sogenannte "Pages" und liegt am Anfang des ganzen 
Speicherbereiches. Jeweils 256 Speicherstellen werden 
aufgrund der prozessoreigenen Speicherverwaltung zu einer 
Page zusammengefaßt, da jede Speicherstelle oder auch jedes 
Byte genau 256 (O - 255) verschiedene Werte annehmen kann. 
In der nullten Seite, also von O bis 255, merkt sich der 
Rechner die Werte, die er sehr oft braucht. 
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Allgemeiner Aufbau und Zeiger des BASIC RAM 





In den Stellen 43, 44 steht immer der aktuelle Start des 
Basic-Speichers und in 45, 46 das Ende eines 


Basic-Programns. 


Schauen Sie doch einmal nach. Geben Sie PRINT PEEK (43), 
PEEK (44), PEEK (45), PEEK (46) ein. Auf dem Bildschirm 
erscheint dann 


wenn sie kein Programm geladen haben. Die Bedeutung der 
einzelnen Zeiger können Sie der Abbildung 1 entnehmen. 


Da der Rechner 65535 Speicherstellen hat, werden Adressen 
immer durch 2 Bytes ausgedrückt. Das erste Byte, das LSB 
(Last Significant Byte), gibt die Position innerhalb einer 
Seite an, das zweite, das MSB (Most Significant Byte), die 
Seitennummer. 


Unser Basic-Bereich fängt also auf Seite 8 an der ersten 
Speicherstelle an, also mit der Speicherstelle 8*256+1 = 
2049. 


"wieso stehen aber in den Speicherstellen 45, 46 die Werte 3 
und 8, ich habe doch gar kein Programm im Speicher ?", 
werden Sie jetzt fragen. Das hat folgenden Grund: Damit der 
Rechner weiß, wo ein Basicprogramm zu Ende ist, hängt er 
immer 2 Nullen an das Ende, um es zu markieren. Sie haben 
also jetzt ein Programm im Speicher, welches sozusagen nur 
aus einer Programmendmarkierung besteht. Sie können dies 


leicht überprüfen. Wenn Sie 


PRINT PEEK (PEEK(45)+PEEK(46)*256 -1) 


eingeben, erhalten Sie O0. Geben Sie jetzt einmal eine 


Basic-Zeile ein, z.B. 


10 PRINT "HALLO" 


und schließen Sie die Eingabe mit RETURN ab. Wenn Sie jetzt 


wie oben die Inhalte der Speicherstellen 43, 44, 45, 46 


auslesen, erhalten Sie 
1 8 16 8 


Der Rechner hat entsprechend Ihres - Programmes die 
Eintragungen in seinem Merkheft geändert. 


Nach dieser Exkursion in die Speicherverwaltung kehren wir 
wieder zum SAVE-Befehl zurück. 


Durch diesen Befehl veranlassen wir also den Rechner, alles, 
was zwischen den eben genannten Zeigern steht, auf Band 
abzuspeichern. Dem Computer ist es dabei egal, ob auf dem 
Band schon etwas abgespeichert ist oder nicht. Wie bei einem 
normalen Cassettenrecorder wird die Cassette einfach 
überschrieben. 


Damit Sie aber das abgespeicherte Programm wieder finden 
können, haben Sie die Möglichkeit, dem abzuspeichernden 
Programm einen Namen zu geben. Die Syntax ist dann 
folgende 


SAVE"NAME" 


Sie haben natürlich auch die Möglichkeit, den String "NAME" 
vorher in eine Stringvariable einzulesen und ein Programm 
mit folgender Syntax abzuspeichern 


A$="NAME" 
SAVEA$ 


Diese Möglichkeit kann wichtig sein, wenn Sie diesen Befehl 
innerhalb von Programmen nutzen. Aber darüber finden Sie im 
Kapitel 5 mehr. 


Nach dem Namen haben Sie dann noch die Möglichkeit, eine 
Geräteadresse und eine Sekundäradresse, jeweils durch Komma 
getrennt, folgen zu lassen. Die genaue Bedeutung der 
Sekundäradresse finden Sie’in Kapitel 3 beschrieben. 


Die Geräteadresse sagt dem Computer, welches Peripheriegerät 
er wählen soll. Sie stellt sozusagen die Hausnummer der 
verschiedenen Geräte dar. Die Hausnummer der Datassette ist 
1, die einer Diskettenstation 8 oder 9. 


Damit Sie aber nicht soviel tippen müssen, ist Ihr Computer 
so programmiert, daß er immer die Datassette auswählt, wenn 
keine Angabe über die Geräteadresse gemacht wird. 


2.2 LOAD 


Mit diesem Befehl können Sie das einmal Abgespeicherte 
wieder laden. Geben Sie dem Rechner keinen Namen an, läd er 
das nächste Programm, welches er finden kann. Sie können bei 
diesem Befehl genauso wie bei SAVE einen Namen angeben. Auch 
können Sie hier wieder eine Geräte- und Sekundäradresse 
folgen lassen. Hierfür gilt das gleiche wie das beim 
SAVE-Befehl. 


Nach jedem LOAD-Befehl im Direktmodus werden vom Rechner 
automatisch die Eintragungen in seinem Merkheft entsprechend 
dem geladenen Programm geändert. Dies ist zu beachten, wenn 
Sie Maschinenprogramnme laden. Wenn Sie z.B. ein 
Maschinenprogramm laden, das am Ende des Basic-Speichers 
liegt, werden dementsprechend auch die Basic-Endvektoren auf 
das Basic-RAM-Ende gesetzt. Eine weitere Eingabe wird danach 
mit "?OUT OF MEMORY ERROR" vom Rechner kommentiert. Um nun 
weitere Eingaben machen zu können, müssen Sie entweder in 
die Zeiger 45,46 den alten Wert POKEn oder Sie geben einen 
NEW-Befehl, damit das im Basic-Speicher befindliche Programm 
nicht aber das Maschinenprogramm gelöscht wird. 


Sie können den NEW-Befehl umgehen, wenn Sie das 


Maschinenprogramm im Programmodus laden. Näheres lesen Sie 
dazu im Kapitel 5. 
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2.3 VERIFY 


Dieser Befehl arbeitet ähnlich wie der LOAD-Befehl. Der 
einzige Unterschied ist, daß durch diesen Befehl das 
Programm nicht in den Speicher geschrieben wird, sondern 
Byte für Byte mit dem im Speicher stehenden verglichen wird. 
Dadurch können Sie testen, ob eine Programmspeicherung 
erfolgreich war. 


War die Speicherung erfolgreich und hat auch die Cassette 
keinen Fehler, erscheint OK auf dem Bildschirm. Wird bei dem 
Vergleich ein Fehler festgestellt, erhalten Sie die Meldung 
"?VERIFY ERROR". 


2.4 OPEN 


Bis jetzt habe ich nur über das Laden und Speichern von 
Programmen geschrieben. Sie haben aber auch die Möglichkeit, 
Daten zu speichern und zu laden. Um dem Rechner mitzuteilen, 
daß Sie Daten laden oder speichern wollen, müssen Sie mit 
dem OPEN-Befehl eine Datei eröffnen. 


Mit diesem Befehl teilen Sie dem Computer alle Parameter 
mit, die er benötigt, nämlich die Gerätenummer, den 
Filenamen und die Sekundäradresse, die aussagt, ob geladen 
oder gespeichert werden soll. Um eine Datei zu eröffnen, 
müssen Sie folgenden Befehl eingeben 


OPEN 1£,GA,SA, "NAME" 


Mit "NAME" können Sie der Datei wie bei SAVE und LOAD einen 
Namen geben. 


SA steht für Sekundäradresse: 


Über diese Zahl teilen Sie dem Computer mit, ob Sie 
Daten senden ( = 1 ) oder empfangen ( = OÖ ) wollen. 
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Geben Sie eine 2 ein, wird nach dem Abspeichern noch 
ein EOT (End Of Tape) Block geschrieben. Siehe dazu 
auch Kapitel 3. 


GA steht für Geräteadresse: 


Diese Zahl sagt dem Rechner, mit welchem Gerät er 
arbeiten soll. Dabei bedeutet 


o = Tastatur 

1 = Cassette 

3 = Bildschirm 
4,5 = Drucker 
8,9 = Diskette 


lf steht für logische Filenummer: 


Diese Zahl, sie kann zwischen O und 255 liegen, 
stellt den Index dieser OPEN - Anweisung dar. Damit 
nicht bei jedem Ein- und Ausgabebefehl alle 
Parameter mit übergeben werden müssen, legt sich der 
Computer eine Tabelle an, in der die Parameter der 
OPEN - Anweisung unter dieser Indexnummer abgelegt 
sind. 


Nachdem wir nun eine Datei eröffnet haben, kommen wir zu den 
Befehlen der Daten Ein- und Ausgabe. 
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2.5 PRINTi UND CLOSE 


Mit dem PRINT#-Befehl ist es möglich, einzelne Daten auf 


Band zu schreiben. 


Zur besseren Erklärung geben Sie einmal folgendes Programm 


ein: 


10 OPEN 1,1,1,"DATENFILE" 

20 PRINT "DATEI WURDE EROEFFNET" 

30 PRINT:PRINT"GEBEN SIE DATEN EIN" 

40 INPUT"DATEN";A$ 

50 PRINT#1,A$ 

60 A=A+1 

70 PRINT A"DATEN WURDEN ZWISCHENGESPEICHERT" 
80 PRINT:PRINT"WEITERE DATEN" 


90 GET F$: IF F$ = "" THEN 90 

100 IF F$ = "J" THEN 40 

110 CLOSE1 

120 PRINT:PRINT"DATEI WURDE GESCHLOSSEN" 
130 END 


Legen Sie nun eine leere Cassette in Ihren Recorder und 
starten das Programm mit RUN. Es erscheint sofort die 
Meldung "PRESS RECORD & PLAY ON TAPE". Wenn Sie dieser 
Meldung Folge leisten, wird entsprechend der OPEN-Anweisung 
in Zeile 10 ein Dateikopf auf Band geschrieben, der den 
Namen der Datei enthält. Danach hält der Recorder an und Sie 
werden durch Zeile 40 gebeten, Daten einzugeben. 


In der Zeile 50 wird dann durch den PRINT#-Befehl der 
eingegebene String zwischengespeichert. Die Nummer nach der 
PRINT#-Anweisung, es ist die logische Filenummer, stellt den 
Bezug zur OPEN-Anweisung her. Daß der String nicht sofort 
auf Band geschrieben wird, können Sie daran sehen, daß sich 
das Band noch nicht bewegt. 


Erst wenn Sie eine ganze Reihe von Daten eingegeben haben, 
setzt sich das Band in Bewegung, und alle bis dahin 
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eingegebenen Daten werden auf das Band übertragen. Auf den 
Zwischenspeicher, es handelt sich um den Cassettenpuffer, 
werde ich noch im Kapitel 7 genauer eingehen. 


Wenn Sie nun auf die Abfrage in Zeile 100 mit "J" antworten, 
können Sie weitere Daten eingeben. Ist der Puffer voll, 
können Sie feststellen, daß eine Pause entsteht und sich das 
Band kurzzeitig bewegt. Jetzt wird der Puffer auf Band 
geschrieben und anschließend mit "Space" (CHR$(32)) 
beschrieben, um neue Daten aufzunehmen. 


Wenn Sie die Eingabe beenden, verzweigt der Rechner zum 
CLOSE-Befehl in Zeile 110. Die Zahl hinter diesem Befehl ist 
wieder eine logische Filenummer und sagt dem Computer, daß 
er die mit der logischen Filenummer 1 geöffnete Datei 
schließen soll. Das macht er, indem er alle Eintragungen, 
die er in seinem Merkheft unter dem Index 1 notiert hat, 
löscht. Der Rechner schreibt nun hinter die letzte 
Eintragung ein Nullbyte, um das Datenende zu kennzeichnen, 
und speichert den Puffer auf Band. Es ist also sehr wichtig, 
eine Datei wieder zu schließen, da sonst die letzten Daten 
verlorengehen. 


Bis jetzt haben wir nur Strings, bzw. den Inhalt von 
Stringvariablen abgespeichert. Die Frage ist nun:"Wie 
verarbeitet der Rechner numerische Ausdrücke und Variablen?" 
Solche Ausdrücke werden abgespeichert, als wären es Strings. 
D.h. der Rechner führt bei jedem PRINT#-Befehl automatisch 
einen STR$-Befehl durch. Es ist also das gleiche, ob Sie 


PRINT#1,55 
oder 
A$=STR$ (55): PRINT#1,A$ 
schreiben. Aus diesem Grund können Sie später jeden 


numerisch abgespeicherten Wert auch in eine Stringvariable 


einlesen. 
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Eine weitere wichtige Sache ist das Format einer 
PRINT#-Anweisung, wenn Sie mit einer Anweisung mehrere 
Ausdrücke abspeichern wollen. Auf dieses Problem möchte ich 
aber zum besserem Verständnis erst nach dem INPUT#-Befehl 
kommen. 


2.6 INPUTH 


Dieser Befehl verhält sich vollkommen analog zum normalen’ 
INPUT-Befehl, nur daß hier nicht die Tastatur als festes 
Empfangsgerät voreingestellt ist. Wenn Sie z.B. mit 


OPEN1,0 


(O=Tastatur) die Tastatur als Sender definieren, verhält 
sich INPUT#$1,A$ genauso wie INPUTA$, mit dem kleinen 
Unterschied, daß kein Fragezeichen ausgedruckt wird. 


Wie sich nun INPUT# in Hinsicht auf den Cassettenrecorder 
verhält, sehen wir uns am besten wieder mit einem kleinen 
Beispielprogramm an. Spulen Sie Ihre Cassette zu dem Punkt 
zurück, wo Sie die Datei "DATENFILE" abgespeichert haben, 
und geben Sie folgendes Programm ein 


10 OPEN 1,1,0, "DATENFILE" 

20 PRINT "DATEI WURDE EROEFFNET" 

30 PRINT:PRINT"DATEN WERDEN EINGELESEN" 
40 INPUT#1,A$ 

50 PRINTA$ 

60 A=A+t1 

70 PRINT A"DATEN WURDEN EINGELESEN" 

80 PRINT:PRINT"WEITERE DATEN" 

90 GET F$: IF F$ = "" THEN 90 

100 IF F$ = "J“ THEN 40 

110 CLOSE1 

120 PRINT:PRINT"DATEI WURDE GESCHLOSSEN" 
130 END 
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Wenn Sie nun das Programm starten und laut Anweisung die 
PLAY-Taste drücken, sehen Sie, daß das Band einige Zeit 
läuft und dann anhält. Ihr Rechner hat nun aufgrund des 
OPEN-Befehls die Datei "DATENFILE" gesucht und dann aufgrund 
des INPUT#-Befehls in Zeile 40 "den ersten Datenblock 
eingelesen und den ersten String der Variablen A$ übergeben, 
die über Zeile 50 auf dem Bildschirm angezeigt wird. 


Die einzelnen Daten stehen jetzt genauso im Puffer, wie Sie 
sie beim Abspeichern hereingeschrieben haben. Hinter jedem 
String steht aufgrund der PRINT#-Anweisung ein "Carriage 
Return’ (CHR$(13)), also ein Zeilenvorschub. Der 
PRINT#-Befehl schreibt die Daten genauso in den Puffer wie 
ein PRINT-Befehl sie auf den Bildschirm schreiben würde. Der 
INPUT#-Befehl erkennt genauso wie der INPUT-Befehl durch ein 
Komma oder RETURN, daß hier der Ausdruck zu Ende ist. 


Byte oO |ı [2 |3 |a |5 |6 |7 |8 |9 J10|11|...127|28 |29 |30 |31 
InhaltIs IT Ir 1 lcr|s IT IR |2 lcr|Is IT |...R 15 |CR |OoO 


Beantworten Sie jetzt die Frage, ob weitere Daten eingelesen 
werden sollen. Bei unserem Beispielprogramm gebben Sie °J° 
ein. Jetzt können Sie String für String wieder einlesen und 
auf dem Bildschirm ausdrucken lassen, bis Sie die Meldung 
erhalten "?STRING TOO LONG ERROR". 


Diese Meldung erhalten Sie, weil Sie inzwischen den letzten, 
abgespeicherten String eingelesen haben und nun versuchen, 
einen weiteren einzulesen. Der Computer sucht das Ende des 
Strings, also ein Komma oder CARRIAGE RETURN (kurz CR ), 
findet aber in den nächsten folgenden 80 Speicherstellen 
keins. (Sie können maximal 80 Zeichen mit einer INPUT-bzw. 
INPUT#-Anweisung einlesen. ) Daraus schließt der Computer, 
daß hier ein String länger als 80 Zeichen vorliegt und gibt 


die Fehlermeldung aus. 


Damit Sie aber nicht bei einem "normalen’ Dateiprogramm 
immer diese Fehlermeldung bekommen, gibt es eine 
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Möglichkeit, das Dateiende mit Hilfe der Statusvariablen zu 
erkennen. Wie Sie das programmieren müssen, finden Sie im 
Kapitel 4. 


Diese Fehlermeldung erhalten Sie aber nicht nur, wenn Sie 
über das Dateiende hinaus zu lesen versuchen, sondern auch 
dann, wenn die Daten in einem falschen Format abgespeichert 


wurden. 


Bei der Besprechung des PRINT#-Befehls haben wir immer nur 
einen Ausdruck pro PRINT#-Anweisung abgespeichert, was zur 
Folge hatte, daß automatisch immer ein CR angehängt wurde. 
Es ist aber auch möglich, mehrere Ausdrücke mit einer PRINT£ 
- Anweisung abzuspeichern.. Dabei muß aber darauf geachtet 
werden, daß die einzelnen Ausdrücke voneinander separiert 


werden. Schreiben Sie z. B. 

PRINT#1,A$,B$ 
mit A$="STRING1" und B$="STRING2", werden die beiden 
Ausdrücke genauso in den Puffer geschrieben, wie sie mit 


einer PRINT-Anweisung auf den Bildschirm geschrieben würden, 


nämlich 


Byte oı17|21)3|4|5 |6 |7 |8 |9 |10|11}12) 13) 14|15|16| 17 
Inhalt |S |T |R |I|N|G |1 SI|T|R|I|N |G |2 |CR 
Wenn Sie aber folgende Anweisungen geben: 


T$=" P " 
PRINT#1,A$;T$;B$ 


erhalten Sie 
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Jetzt sind die Strings eindeutig voneinander getrennt und 


werden von einer INPUT#1,A$,B$-Anweisung richtig eingelesen. 


Auf eine beachtenswerte Besonderheit muß ich aber noch 
hinweisen. Das Komma reicht zwar aus, um die Daten für eine 
eindeutige Variablenzuweisung mit INPUT# zu gewährleisten, 
aber es reicht nicht aus, dem Computer zu sagen, daß hier 
eine Eintragung zu Ende ist und daß ab dem nächsten Byte 
eine neue beginnt. Das klingt zwar sehr ähnlich, ist es aber 
nicht. Deshalb möchte ich im folgenden etwas näher darauf 


eingehen. 


Man kann den Computer mit einer großen Firma mit vielen 
Abteilungen vergleichen. Das Verarbeiten von Daten beim 


Lesen und Schreiben überläßt er zwei Abteilungen. 


1. Abteilung - Variablenverarbeitung 
Diese Abteilung sorgt dafür, daß ein Ausdruck, 
der irgendwo im Speicher steht (Cassettenpuffer, 
Bildschirmspeicher, Programm etc. ), der 
richtigen Variablen im richtigen Format 


zugeordnet wird. 


2. Abteilung - Speicherplatzverwaltung 
Diese Abteilung sagt der ersten Abteilung immer, 
ab welchem Speicherplatz der für sie interessante 
Ausdruck steht. 


Jede der beiden Abteilung hat nun ihre eigene Art, das Ende 
eines Ausdrucks und somit den Beginn eines neuen zu suchen. 
Der ersten Abteilung ist es egal, ob sie ein Komma oder 
einen CR findet. Bei beiden weiß sie, daß hier ein Ausdruck 
zu Ende ist und danach ein neuer beginnt. Die zweite 
Abteilung kümmert sich um das Komma überhaupt nicht. Sie 
erkennt nur den CR als Trennungszeichen an. D.h. sie gibt 
als Startpunkt für einen neuen Ausdruck immer die Stelle 


nach einem CR an. 


Am besten veranschaulicht man sich das mit einem kleinen 
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Beispielprogramm. Geben Sie einmal die folgenden Zeilen ein, 
legen eine Leercassette in Ihren Recorder und starten das 
Programm mit RUN. 


10 OPEN1,1,1,"TEST" 

20 T$="," 

30 A1$="STRING1" : A2$="STRING2" 
40 A3$="STRING3" : A4$="STRING4" 
50 PRINT#1,A1$;T$;A2$;T$;A3$ 

60 PRINT#1,A4$ 

70 CLOSE1 

80 END 

100 OPEN1,1,0, "TEST" 

110 INPUT#1,A$ 

120 PRINT A$ 

130 INPUT#1,A$ 

140 PRINT A$ 

150 CLOSE 1 

160 END 


Nachdem die Datei TEST abgespeichert wurde, spulen Sie Ihre 
Cassette an den Start der Datei zurück und starten das 


Programm mit RUN10O0. Wenn der Rechner die Datei eingelesen 
hat, stehen die Strings folgendermaßen im Speicher: 


112 |3 |a |5 |& !7 ı8 |9 )10| 11|12|13)| 14| 15 16 | 1718/19 
SI|TIR|I |N|G |1 n SIT|R|IIN|G |2|, s|T|/|R |I 
20|21|22|23|24| 25|26| 27|28| 29] 30| 31/32 |33| 34) 35 
N |G |3 |cR|sS |T |R |I |N |G |4 |CR|OO 
Auf dem Bildschirm erhalten Sie: 


STRING1 
STRING4 


Abteilung zwei hat beim ersten INPUT# seinen Zeiger auf den 
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ersten String gesetzt, und Abteilung eins hat ihn dann A$ 
zugeordnet. Da keine weiteren Ausdrücke bei dieser 
INPUT#-Anweisung eingelesen werden sollen, wird die 
Ausführung wieder an Abteilung zwei übergeben. Bei der 
nächsten INPUT#-Anweisung sucht Abteilung zwei das nächste 
CR und findet es vor STRING4. Diesen Startpunkt übergibt sie 
der Abteilung eins, welche den Ausdruck "STRING4" wiederum 


A$ zuweist. 


Ändern Sie jetzt einmal Zeile 110 und 120, indem Sie 
“,B$,C$° anhängen. Wenn Sie nun die Datei erneut einlesen, 


erhalten Sie auf dem Bildschirm 


STRING STRING2 STRINGI3 
STRING4 


Jetzt weist Abteilung eins in Zeile 110 erst die beiden 
folgenden Ausdrücke den Variablen B$ und C$ zu, ehe sie das 
Kommando an Abteilung zwei zurückgibt. 


Kurz 


Der Zeiger der Abteilung eins wird durch jede 
Variablenzuweisung auf das nächste Trennungszeichen 
gesetzt (Komma oder CR). 


Der Zeiger der Abteilung zwei wird durch jede 
INPUT#-Anweisung auf das nächste Trennungszeichen 
gesetzt (CR). 


Zusammenfassend kann man also sagen, daß ein Komma solange 
als Trennung ausreicht, wie Sie die Daten im gleichen Format 
einlesen, wie Sie sie abgespeichert haben. Wollen Sie aber 
beim Einlesen frei sein vom Eingabeformat, dann definieren 


Sie den Trennungsstring mit CR. 


20 T$=CHR$(13) 


Bei so abgespeicherten Daten erhalten Sie immer das gleiche 


Ergebnis, egal ob Sie mit einer INPUT#-Anweisung eine oder 
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mehrere Variablen einlesen. 


Bis jetzt habe ich nur über die Trennung von einzelnen 
Ausdrücken geschrieben. Bei manchen Anwendungen kann es aber 
sinnvoll sein, einzelne Ausdrücke nicht zu trennen. Dies 
erreicht man wie bei dem PRINT-Befehl auf.dem Bildschirm 
dadurch, daß man eine PRINT#-Anweisung mit einem Semikolon 
abschließt. Probieren Sie es einmal mit dem kleinen 
Testprogramm von oben. Ändern Sie die Zeilen folgendermaßen 
ab: 


10 OPEN1,1,1,"TEST2" 
50 PRINT#1,A1$;A2$;,A3$; 
100 OPEN1, 1,0, "TEST2" 


Löschen Sie Zeile 130 und 140.’ Wenn Sie nun mit'RUN die 
Datei TEST2 abspeichern und sie mit RUN10O0O einladen, 
erhalten Sie: j 


STRING1STRING2STRING3STRING4 


Ergeben sich aber durch die Aneinanderreihung Strings, die 
länger als 80 Zeichen sind, können Sie sie nicht mehr mit 
der INPUT#-Anweisung einlesen. Solche Strings können Sie 
dann nur noch Byte für Byte mit der GET#-Anweisung einlesen. 


2.7 GETH 


Auch dieser Befehl arbeitet vollkommen analog dem GET - 
Befehl. Mit ihm können Sie byteweise Daten einlesen. Geben 
Sie einmal folgendes Programm ein: 


10 OPEN1,1,0, "TEST" 

20 GET#1,A$ 

30 PRINTA$; 

40 GETA$: IF A$="" THEN 40 
50 GOTO2O 
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Spulen Sie nun zum Beginn der Datei TEST zurück und starten 
Sie das Programm. Nachdem der Computer die Datei gefunden 
hat, erscheint buchstabenweise folgendes Bild 


STRING STRING2 STRING3 
STRING4 


Wenn nun noch weitere Zeichen eingelesen werden, können Sie 
keine Veränderung auf dem Bildschirm erkennen, da der Puffer 
mit "SPACE" aufgefüllt ist. Durch folgendes Programm können 
Sie die Zeichen sichtbar machen 


30 PRINT A$,ASC(A$+CHR$(0)) 


Dadurch erreichen Sie, daß jedes Zeichen als Buchstabe und 
Asciiwert ausgedruckt wird. Trifft die GET#-Anweisung auf 
ein Nullbyte, wird es als Leerstring interpretiert. Damit 
bei der Umwandlung in den ASCII-Code dadurch keine 
Fehlermeldung ausgelöst wird, wird zu A$ immer CHR$(O) 
addiert. 


Spulen Sie nun zurück und starten das Programm erneut. Auf 


Ihrem Bildschirm erscheint nun folgendes: 


s 83 
T 84 
R 82 
I 76 
N 78 
G 71 
1 49 
44 

Ss 83 
N 78 

71 
4 52 
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13 


32 


Die Null nach STRING4 ist die Kennzeichnung für das 
Dateiende. Danach folgt nur noch "SPACE". 
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3. DIE SEKUNDARADRESSE 


Wie ich schon im zweiten Kapitel geschrieben habe, gibt es 
neben der Geräteadresse auch eine Sekundäradresse. Diese 
Adresse wird allgemein dazu benutzt, dem Peripheriegerät 
oder dem Computer als Empfänger eine weitere Anweisung zur 
Betriebsart zu übermitteln. 


Vorweg möchte ich noch ein paar grundlegende Bemerkungen 
über die zwei verschiedenen Programmarten machen. Zum einem 
gibt es Basic-Programme. Diese Programme sind nicht abhängig 
davon, in welchem Speicherbereich sie stehen, sie sind 
verschiebbar. 


Bei dem VC 20 zum Beispiel hängt die Lage des 
Basic-Speicher- Bereiches davon ab, wie er erweitert ist. In 
der Grundversion startet der Basic-Bereich bei der 
Speicherstelle 1025. Erweitern Sie ihn z.B. um 8 kByte, 
beginnt der Basic-Bereich bei 1609. Trotzdem laufen 
Programme, die auf der Grundversion geschrieben worden sind, 
auch auf der erweiterten Version. 


Damit diese Programme auch immer an den Anfang des 
Basic-Bereiches geladen werden, besitzt der VC 20 und auch 
der C-64 einen sog. Relativlader, der automatisch alle 
Basic-Programme an den Basic-Start einliest. 


Die andere Programmart ist das Maschinenprogramm. Diese Art 


von Programme laufen nur in dem Speicherbereich, für den sie 


geschrieben wurden. Sie dürfen nicht relativ geladen werden. 


Um Basic-Programme von Maschinenprogrammen unterscheiden zu 
können, wird die Sekundäradresse bei der Cassettenhandhabung 
benutzt. 


Im einzelnen bewirken die Sekundäradressen folgendes: 
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I. SAVE 


O - Das abgespeicherte Programm wird als 
Basic-Programm gekennzeichnet. Dadurch wird 
erreicht, daß dieses Programm mit dem Befehl LOAD 
automatisch an den gerade aktuellen Basic-Start, 
also relativ, geladen wird. 


1 - Sie kennzeichnet ein Programm als 
Maschinenprogramm. Wenn Sie ein so gespeichertes 
Programm mit LOAD laden, wird es automatisch an die 
Adresse geladen, von welcher es abgespeichert wurde. 


2 - Sie speichert ein Programm als Basic-Programm ab 
wie mit der Sekundäradresse 0. Zusätzlich schreibt 
der Rechner hinter das Programm noch einen sog. EOT 
(End Of Tape) Block. Dieser Block sagt dem Rechner 
beim Lesen, daß er hier mit der Suche nach weiteren 
Programmen aufhören soll. Trifft der Computer beim 
Suchen eines Programms auf solch einen Block, ohne 
vorher ein Programm gefunden zu haben, so gibt er 
die Meldung aus "?FILE NOT FOUND ERROR" aus. 


3 - Sie kennzeichnet ein Programm als 


Maschinenprogramm und schreibt einen EOT Block 


dahinter. 
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Bei dem Befehl LOAD hat die Sekundäradresse folgende 
Bedeutung: 


II. LOAD 
O - Das Programm wird entsprechend der Information 
geladen, die im Programmkopf steht. D.h. als 
Maschinenprogramme gespeicherte Programme werden 


auch als solche geladen. Das gleiche gilt für 


Basic-Programme, sie werden relativ geladen. 
1 - Jedes Programm, egal wie es gekennzeichnet 
wurde, wird absolut, also an die Adresse geladen, 


von welcher es abgespeichert wurde. 


Beim OPEN Befehl gibt es folgende Sekundäradressen: 


ZIIL. OPEN 


O - Sie öffnet eine Datei zum Lesen. 


1 - Sie öffnet eine Datei zum Schreiben. 


2 - Sie öffnet eine Datei zum Schreiben und schreibt 


einen EOT-Block hinter die Datei. 
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4. DIE STATUSVARIABLE 


wie ich schon in den vorausgegangenen Kapiteln erwähnt habe, 
gibt es in Ihrem Commodore eine festdefinierte Variable, die 
Ihnen Auskunft über den Verlauf einer Cassettenoperation 
gibt. Diese sog. Statusvariable ST wird vom Computer bei 
jedem Zugriff auf Cassette oder andere Peripherigeräte 
gesetzt. Mit ihr haben Sie die Möglichkeit, eventuell 
aufgetretene Fehler genauer zu spezifizieren. Weiterhin 


können Sie mit ihr feststellen, wann eine Datei zu Ende ist. 


Diese Variable besteht aus acht einzelnen "Flags", die 
entsprechend den aufgetretenen Fehlern gesetzt werden. Mit 
Hilfe einer AND Verknüpfung können Sie jedes einzelne Bit 
dieser Variable testen. Näheres über die verschiedenen 
Zahlendarstellungen und logischen Verknüpfungen finden Sie 
in dem Buch VC 20 Tips & Tricks. 


Aus der Tabelle 1 können Sie die genaue Bedeutung der 


einzelnen Flags entnehmen. 


Um das vierte Bit der Statusvariablen zu verstehen, muß man 
wissen, daß der Computer alle Daten und Programme zweimal 
auf Band schreibt und beim Einlesen beide Versionen 
miteinander vergleicht. Näheres finden Sie dazu noch im 
Kapitel 8. 
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Tabelle 1 


ST-Bit|ST-Dez.-| Bedeutung 


Keine Bedeutung für die Cassette 


u 


Kurzer Block. Ein gefundener Block ist 
kürzer, als er sein müßte. 

Langer Block. Ein gefundener Block ist 
länger, als er sein müßte. 

Second Pass Fehler. Die Daten des ersten 
Pass stimmen nicht mit denen des zweiten 
überein. 

Prüfsummenfehler. Die abgespeicherte 
Prüfsumme stimmt nicht mit der errech- 
neten überein. 


Fileende 


Bandende. EOT wurde gelesen. 





Wie können Sie jetzt diese Variable in Ihren Programmen 
verwenden ? Wie Sie aus der Tabelle entnehmen können, gibt 
das 6. Bit darüber Auskunft, ob eine Datei zu Ende ist. Wenn 
Sie also innerhalb Ihres Programms Bit sechs abfragen, 
können Sie das Einlesen nach dem letzten String beenden. 
Geben Sie einmal folgendes Programm ein und lesen Sie damit 
die im Kapitel 2 angelegte Datei ein. Nachdem "STRING4" 
ausgedruckt wurde, erscheint READY und der Cursor. 


10 OPEN1,1,0,"TEST" 

20 INPUT#1,A$ 

30 PRINT A$ 

40 IF(ST AND 64) = 64 THEN6O 
50 GOTO2O 

60 CLOSEI1 

70 END 


28 


4.1 PROGRAMME RETTEN NACH LOAD ERROR 


Ihnen ist es bestimmt schon passiert, daß sich Ihr Computer 
nach dem Ladevorgang mit "?LOAD ERROR" meldete und das 
geladene Programm gar nicht oder nur teilweise eingelesen 


wurde. 


Die Ursache dafür ist meistens, daß die Position des 
Tonkopfes relativ zum Band beim Schreiben eine andere war 
als beim Lesen. Abhilfe schafft da nur eine neue Justierung 
des Tonkopfes, wie sie im Kapitel 11.5 beschrieben wird. 


Läßt sich das Programm nach neuer Tonkopfeinstellung immer 
noch nicht laden, liegt der Fehler am Band oder an einer 
fehlerhaften Speicherung des Programms. Sie brauchen aber 
nicht zu verzweifeln. Unter bestimmten Bedingungen ist es 
möglich, das Programm zumindest teilweise zu retten. 


Wenn Sie mit Ihrem Computer ein Programm abspeichern, wird 
es zweimal hintereinander auf Band geschrieben. Beim 
Einlesen wird die erste Version in den Speicher geladen und 
dann mit der zweiten verglichen. Stellt der Rechner dabei 
einen Fehler fest, versucht er erst diesen Fehler zu 
korrigieren. Ist das nicht möglich, setzt er Bit vier in der 
Statusvariablen und gibt ein "?LOAD ERROR" aus. 


Es kann auch sein, daß er einzelne Bits oder 
Bytekennzeichnung nicht lesen kann, was die Synchronisation 
zwischen Leseroutine und eingelesener Information "außer 
Tritt" bringt. Das hat zur Folge, daß die Bits zwei und/ 
oder drei gesetzt werden. 


Jeder aufgetretene Fehler führt dazu, daß die Basic-Vektoren 
45, 46 (Programmende) nicht entsprechend gesetzt werden. 


Falls der Fehler erst gegen Ende des Programms oder erst im 
zweiten Pass aufgetreten ist, können Sie das Programm ganz 
oder zumindest teilweilse listen. Diesen listbaren Teil 
können Sie mit einem UNNEW-Befehl retten. 
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Dies ist ein Befehl, der nicht im Commodore Basic 2.0 
enthalten ist. Besitzen Sie keine Basic-Erweiterung, die 
diesen Befehl enthält, können Sie das am Ende dieses 
Kapitels abgedruckte Programm eingeben. Falls Sie kein 
MONITOR-Programm haben, geben Sie es mit dem Basic-Lader ein 
und speichern es ab. Danach starten Sie den Lader. Nun 
können Sie das Maschinenprogramm von der angezeigten 
Startadresse bis zum Basic-RAM-Ende abspeichern (siehe dazu 
Kapitel 6). Das so abgespeicherte Maschinenprogramm können 
Sie nun bei Bedarf einfach mit LOAD zuladen und mit 
SYS(Startadresse) starten, um entweder ein gelöschtes 
Programm wieder ins Leben zu rufen, oder um ein nur 


fehlerhaft ladbares Programm zumindest teilweise zu retten. 


Nachdem Sie mit dem UNNEW-Befehl die Programmendvektoren 
gesetzt haben, speichern Sie es auf einer anderen Cassette 
ab. Nun kommt der schwierigste Teil. Jetzt müssen Sie 
feststellen, wo das Programm beschädigt ist. Das geschieht 
auf die gleiche Weise, wie Sie ein anderes Basic-Programm 
auf Fehler untersuchen. 


Wie schon anfangs bemerkt, ist der häufigste Grund für einen 
"?LOAD ERROR" ein dejustierter Kopf. Darum sollten Sie als 
erstes immer versuchen, den Tonkopf besser auf das Band zu 
jJustieren und ggf. die oben beschriebene Prozedur mit 
verschiedenen Tonkopfeinstellungen zu wiederholen, bis Sie 
ein möglichst wenig beschädigtes Programm laden können. 
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KRERKKRKRRTERKHK THREE N HERNE HH HN HEN HH HH HEIKE RER HH TER HERR 


108 


REM UNNEW 64 


KERKEERRREKERKHHR EHRT HH HR HR RK 


118 
120 
130 
148 
150 
160 


170 


180 


PS=®: E=256#PEEK (56) +PEEK (55) -1:A=E-51 

FOR I=A TO E:READ X:PS=PS+X:POKE I,X:NEXT 

IF PS<>5274 THEN PRINT"DATA ERROR" :END 

H=INT (A/256) :POKE 56,H:POKE 55, A-256*H 
PRINT"STARTADRESSE "A: NEW 

DATA 165,43,164,44, 133,34, 132,35, 169,3,200,177,34,2@ 
8,251,280, 152,24, 101 

DATA 34,169,0,145,43,165,35, 105,0, 260, 145,43,32,51,1 
65, 165,34, 105,2,133 

DATA 45,165,35,105,0,133,46,32,99, 166, 76,123, 227 


ERKENNE IR KH HH H HK HH HH HN RR RR HR IR 


120 


REM UNNEW 28 


KERKKERRKKRKRNIHHKTHH THINK HN HER TH THE HR ER HHNHR KRRRRR 


110 
120 
130 
140 
150 
168 


170 


180 


PS=8: E=256*PEEK (56) +PEEK (55) -1:A=E-51 

FOR I=A TO E:READ X:PS=PS+X:POKE I,X:NEXT 

IF PS<>5319 THEN PRINT"DATA ERROR":END 

H=INT (A/256) :POKE 56,H:POKE 55, A-256*H 
PRINT"STARTADRESSE"A: NEW 

DATA 165,43,164,44, 133,34, 132,35, 160, 3,200, 177,34,2® 
8, 251,200, 152,24,101 

DATA 34,160,0,145,43, 165,35, 105, 0,200, 145,43, 32, 51,1 
97,165,34,105,2,133 

DATA 45,165,35,105,@,133,46,32,99, 198,76, 103,228 
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PROFI-ASS 64 V2.0 


120: 

130: 

140: 

150: 

168: 

179: 

172: 78080 
180: 7998 
182: A663 
184: ES7B 
186: ASSS 
209: 7929 
210: 7908 
229: 7902 
230: 7904 
240: 7906 
259: 7208 
260: 709A 
270: 790@B 
280: 790D 
290: 709F 
292: 7918 
294: 7zeıı 
390: 7912 
310: 7914 
329: 7016 
339: 7018 
349: 791A 
350: 7e1C 
360: 791D 
370: 7O1F 
469: 7022 
470: 7924 
480: 7926 
490: 7928 
509: 792A 
510: 792C 
520: 782E 
530: 7031 
ü7000-7034 


2B 
2C 


22 


23 
03 


22 
FB 


22 
ea 
2B 
23 
oo 


2B 
33 AS 


02 
2D 
23 
09 
ZE 
63 A& 
7B ES 


SEITE 1 


u. 


.DOPT 

.PAG 
ELR 
BASIC 
BINDEN 


STY 
LDY 
NULL INY 
LDA 
BNE 
INY 
TYA 
ELC 
ADC 
LDY 
STA 
LDA 
ADC 
INY 
STA 
JSR 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
JSR 
JMP 
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UNNEW-BEFEHL 


P1,00 
61 
$A663 
$E37B 
$ASS3 
$7000 
$2B 
s2C 
$22 
$23 
#3 


($22),Y 
NULL 


$22 
#0 
($2B) ,Y 
s22 +1 
#0 


($2B),Y 
BINDEN 
+22 

#2 

$2D 

<22 +1 
»0o 

$2E 

CLR 
BASIC 


AUFRUF MIT SYS STARTADRESSE 


; ($0663) 

; ($E467) 

3 (86533) 

; BASICSTART IN PUFFER 
; SCHREIBEN 


;NULL-BYTE SUCHEN 


5 ZEILENLAENGE 


+ BASICSTART ERGIBT KOPPEL- 
ADRESSE DER ERSTEN ZEILE 
;KOPPPELADR AN BASICSTART 
; SCHREIBEN 


; 
; 


;KOPPELADRESSEN NEU BERECHNEN 
;IN $22/$23 STEHT ENDADRESSE 
;5 + 2 ERGIBT BASICENDVECTOR 


;SETZT UEBRIGE ZEIGER 
;RUECKKEHR ZUM BASIC 


5. LADEN UND SPEICHERN VOM PROGRAMM AUS 


Bei der Behandlung der Befehle SAVE und LOAD im Kapitel 2 
habe ich beschrieben, wie man Programme im Direktmodus 
abspeichert und lädt. Diese Befehle können aber auch 


innerhalb von Programmen stehen. 


Der SAVE-Befehl arbeitet innerhalb von Programmen genauso 
wie im Direktmodus. Es ist somit möglich, ein Programm sich 
selber abspeichernzulassen. Diese Möglichkeit werden Sie 
wahrscheinlich aber nur selten nutzen. Weit häufiger möchte 
man nur einen Teil eines Basic-Programms oder ein 


Maschinenprogramm abspeichern. 


Stellen Sie sich vor, Sie haben ein Programm geschrieben, 
das ab Zeile 10000 Datazeilen generiert. Diesen 
Programmteil wollen Sie alleine abspeichern, um ihn dann an 
andere Programme anhängen zu können. Sie müssen als erstes 
feststellen, ab welcher Speicherstelle die Zeile 10000 im 
Speicher steht, da Sie ja nur ab Zeile 10000 abspeichern 
wollen. Mit den folgenden Programmzeilen lösen Sie dieses 


Problem: 


1000 S = PEEK(43) + 256 * PEEK(44) : BS =S 
1010 ZN = PEEK(S + 2) + 256 * PEEK(S + 3) 
1020 IF ZN = 10000 THEN 1050 

1030 S = PEEK(S) + 256 * PEEK(S + 1) 

1040 GOTO 1010 


Um diese Programmzeilen zu verstehen, muß ich Ihnen kurz 


erklären, wie Basic-Zeilen im Speicher stehen. 


Die ersten beiden Bytes einer Basic-Zeile bildet die 
sogenannte Koppeladresse. Sie gibt die Startadresse der 
nächsten Basic-Zeile an, zeigt also auf die nächste 
Koppeladresse. In den beiden folgenden Bytes ist die 
Zeilennummer abgespeichert. Danach kommt der Inhalt der 
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Basic-Zeile, abgeschlossen durch ein Nullbyte. Ihr 


Basic-Programm steht also folgendermaßen im Speicher 
KAL KAH ZNL ZNH Basictext OO KAL KAH ZNL ZNH 


Hierbei bedeuten 


KAL Koppeladresse LSB 
KAH Koppeladresse MSB 
ZNL Zeilennummer LSB 
ZNH Zeilennummer MSB 


Bei unserem kleinen Programm wird in der Zeile 1000 die 
Programmstartadresse aus den Vektoren in S und BS 
eingelesen. In der Zeile 1010 wird die Zeilennummer in die 
Variable 2N übertragen. Die Abfrage in der Zeile 1020 
testet, ob die gewünschte Zeilennummer erreicht wurde. Wenn 
ja, wird in das weitere Programm verzweigt. Ist sie noch 
nicht erreicht, wird in Zeile 1030 aus der Koppeladresse die 
Startposition der nächsten Basic-Zeile in S geschrieben und 
über Zeile 1040 wieder nach 1010 gesprungen. 


Nach diesem Programm haben Sie alle Informationen, um den 
letzten Teil Ihres Programms abzuspeichern. Wichtig ist nun 
nur noch, daß Sie nach dem Speichervorgang wieder den alten 
Wert in den Basicstartvektor schreiben. Mit dem folgenden 
Programmteil können Sie die Datazeilen abspeichern. 


1050 POKE 43,5 AND 255: POKE 44,INT(S/256) :REM ZEIGER 
AUF ZEILE 10000 SETZEN 

1060 SAVE"DATAZEILEN" :REM DATAZEILEN SPEICHERN 

1070 POKE 43,BS AND 255: POKE 44,INT(BS/256) :REM ZEIGER 
ZURUECKSETZEN 


Wenn Sie Maschinenprogramme abspeichern wollen, wird das 
Ganze etwas komplizierter. Lesen Sie dazu bitte Kapitel 6. 
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5.1 OVERLAYTECHNIK 


Der LOAD-Befehl arbeitet innerhalb von Programmen etwas 
anders als im Direktmodus. Im Kapitel 2 habe ich 
geschrieben, daß nach einem LOAD die Basic-Zeiger auf das 
neue Programm eingestellt werden. Geben Sie aber die 
LOAD-Anweisung innnerhalb von Programmen, bleiben die 
Vektoren erhalten, ebenso wie alle bis dahin definierten 


Variablen. 


Daher ist es möglich, von einem Hauptprogramm aus 
verschiedene Unterprogramme aufzurufen, die alle mit den 
gleichen Variablen arbeiten. Diese Methode nennt man 
OVERLAYTECHNIK. 


Bei dieser Technik sind aber einige Dinge zu beachten: 


1. Da die Basic-Vektoren nicht verändert werden, muß das 
aufrufende Programm mindestens so lang sein wie das 


aufgerufene. 


Direkt hinter einem Basic-Programm werden die Variablen 
abgespeichert, und der Vektor 45, 46 ist damit auch der 
Zeiger für den Beginn der Variablentabelle. Ist nun das 
nachgeladene Programm länger, werden die Variablen 
überschrieben, und der Zeiger weist in das neue Programm. 
Sobald nun eine Variablenoperation stattfindet, wird die 
Variable innerhalb des Programms gesucht, was zum 
"Absturz" des Rechners führen kann. 


Mit einem Trick ist es aber möglich, von einem kurzen 


Programm aus ein längeres aufzurufen. 


Zuerst laden Sie das längste nachzuladende Programm im 
Direktmodus ein und stellen durch Auslesen der 
Speicherstellen 45,46 seine Länge fest. Die erhaltenen 
Werte notieren Sie sich am besten. Als nächstes laden Sie 
das aufrufende Programm und setzen folgende Basic-Zeile 
an den Anfang: 
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10 POKE 45,W1: POKE 46,W2: CLR 


Die Zeilennummer ist wahlweise, sie muß nur die kleinste 
in Ihrem Programm sein. Wi und W2 stehen für die von 
Ihnen notierten Werte. 


Durch die POKE-Befehle verlängern Sie Ihr Programm 
künstlich. Das CLR bewirkt, daß auch die anderen Zeiger 
entsprechend geändert werden. 


Sie müssen beachten, daß nach einem LOAD das Programm 


wieder von Anfang an ausgeführt wird. 


Das ist nur dann sinnvoll und unproblematisch, wenn Sie 
Basic-Programme nachladen. Wollen Sie aber ein 
Maschinenprogramm nachladen, ändert sich das im Speicher 
befindliche Basic-Programm nicht und startet sich immer 
wieder von neuem. Wenn das nicht geschehen soll, müssen 
Sie das durch eine Sprungtabelle verhindern. Bei dem 
folgenden Programm werden am Anfang des Programms drei 
Maschinenprogramme eingeladen, ehe es zum Hauptprogramm 


übergeht. 


10 REM START 

20 IF A = O THEN A=1: LOAD"MPR1",1,1 
30 IFA 1 THEN A=2: LOAD"MPR2",1,1 
40 IFA 2 THEN A=3: LOAD"MPR3",1,1 
50 REM HAUPTPROGRAMM 


[ 


[Ui 


Als letztes ist eine Besonderheit der Stringspeicherung 
zu beachten. 


Ihr Commodore Betriebssystem ist so konzipiert, daß 
möglichst wenig Speicherplatz für Strings verwendet wird. 
Jedesmal, wenn Sie einer Stringvariablen einen String 
zuweisen, wird in der Variablentabelle unter dem 
Variablennamen ein Zeiger abgelegt, der auf den 
betreffenden String zeigt. Weisen Sie einer Variablen 
durch eine INPUT - Anweisung einen String zu, wird dieser 
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in einer speziellen Tabelle am Ende des Basic-RAMs 
abgelegt. Geschieht die Zuweisung aber innerhalb des 


Programms, z.B. durch 


100 A$="STRING" 


wird der String nicht noch einmal in die Stringtabelle 
übertragen, sondern der Zeiger wird auf die Position des 
Strings innerhalb des Programms gesetzt. 


Laden Sie nun ein Programm nach, steht an der 
entsprechenden Stelle etwas ganz anderes und der Computer 
druckt bei dem Befehl PRINT A$ nur wirres Zeug aus. 
Abhilfe schaffen Sie sich dadurch, daß Sie scheinbar 
einen neuen String definieren, indem Sie den im Programm 
definierten mit einem Leerstring verknüpfen. Schreiben 
Sie also: 


100 A$="STRING": A$=A$+"" 


Dadurch bringen Sie das Betriebssystem dazu, den String in 
die Stringtabelle zu übertragen. 
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6. ABSPEICHERN VON MASCHINENPROGRAMMEN 


Wenn Sie sich etwas länger mit Ihrem Commodore beschäftigt 
haben, stehen Sie irgendwann vor dem Problem, bestimmte 
Speicherbereiche abspeichern zu wollen. Diese bestimmten 
Speicherbereiche können z.B. der Bildschirminhalt oder ein 
Maschinenprogramm sein. Leider unterstützt das Commodore 
Basic diesen Wunsch überhaupt nicht. Daß es mit einigen 


Tricks doch geht, haben Sie schon im Kapitel 5 gelesen. 


In den letzten Kapiteln habe ich geschrieben, daß der 
Rechner bei einem SAVE-Befehl immer den Bereich, der 
zwischen den Zeigern in 43, 44 und 45, 46 liegt, 
abspeichert. Was liegt da näher, als die Zeiger so zu 
ändern, daß sie auf den Start und das Ende des von Ihnen 
gewünschten Speicherbereichs zeigen. Wenn Sie aber nach der 
Speicherung noch normal’ mit Ihrem Computer arbeiten 
wollen, dürfen Sie es sich nicht so leicht machen. 


Damit der Rechner nach der Speicherung so arbeitet wie 
vorher, muß in den Vektoren wieder der alte Wert stehen. Sie 
müssen diese Werte also vorher °retten’ und nachher wieder 
in die Zeiger 43-46 übertragen. 


Um die Inhalte der Zeiger zu retten, dürfen Sie sie nicht 
Variablen übergeben, da, wie schon in den letzten Kapiteln 
beschrieben, der Programmendvektor gleichzeitig der 
Variablenstartvektor ist. Sobald Sie diesen Zeiger 
verändern, findet der Computer keine Variablen mehr. Aus 
diesem Grund müssen Sie die Zeigerinhalte in Speicherstellen 
POKEn, die nicht durch den Speichervorgang oder das 
Betriebssystem verändert werden. 


Im folgenden Beispiel verwende ich die Speicherstellen 251 
bis 254. Diese Stellen werden vom Betriebssystem nicht 
benutzt. Mit diesen Zeilen schreiben Sie den 
Bildschirminhalt auf Cassette 
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10 POKE251, PEEK(43): POKE252, PEEK(44): REM START RETTEN 
20 POKE253, PEEK(45): POKE254, PEEK(46): REM ENDE RETTEN 
30 POKE43,0: POKE 44,4: REM VIDEORAMSTART ALS START 

40 POKE45,232: POKE 46,3: REM VIDEORAMENDE ALS ENDE 

50 SAVE"BILDSCHIRM",1,1 : REM VIDEORAM SPEICHERN 

60 POKE43, PEEK(251): POKE44, PEEK(252):REM START ZURUECK 
70 POKE45, PEEK(253): POKE46, PEEK(254):REM ENDE ZURUECK 


Sie sehen, daß das Ganze recht kompliziert ist. Mit einem 
kleinen Maschinenprogramm geht es viel einfacher. Sie geben 


einfach 


SYS adr"NAME" ,GA,sadr,eadr 


mit adr : Startadresse des Maschinenprogramns 
NAME : Name des abzuspeichernden Bereichs 
GA : Geräteadresse (Cassette = 1 ) 
sadr : Startadresse des abzuspeichernden Bereichs 
eadr : Endadresse Er rn 


ein, und der Bereich wird abgespeichert, ohne daß Sie 
irgendwelche Manipulationen mit den Vektoren vornehmen 


müssen. 


Die abgedruckten Basic-Lader speichern das kleine 
Maschinenprogramm an das Ende des Basic-RAMs und geben die 
Startadresse aus, mit welcher Sie es aufrufen können. Bevor 
Sie aber den Lader starten, speichern Sie Ihn ab, weil er 


sich automatisch löscht. 


Für Interessierte möchte ich hier einige Erklärungen zum 
Maschinenprogramm geben. 


In Zeile 310 wird eine Betriebssystemroutine aufgerufen, die 
den Namen vom Bildschirm liest und ihn in die entsprechenden 
Speicherstellen schreibt. Die Routine, die in Zeile 320 
aufgerufen wird, prüft, ob das nächste Zeichen ein Komma 
ist, und überträgt den folgenden Ausdruck in das X-Register. 
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In Zeile 330 wird die Sekundäradresse in das Y-Register und 
in Zeile 340 die logische Filenummer in den Akku geladen. 
Mit diesen Parametern wird eine Routine aufgerufen, die die 
Fileparameter setzt. Diese Routine muß vor jedem Lade- und 
Speichervorgang aufgerufen werden. 


In den Zeilen 350 - 380 wird wiederum auf ein Komma 
getestet, um dann die Startadresse einzulesen und zu 
verarbeiten. Sie wird in den Speicherstellen $14 und $15 
abgelegt. In den folgenden Zeilen werden die Inhalte von 
$14/$15 nach $FB/$FC gerettet, um dann wie davor, die 
Endadresse einzulesen. 


Die Übergabe dieser Parameter an die SAVE-Routine erfolgt 
dadurch, daß in den X- und Y-Registern die Endadressen 
absolut übergeben werden, und der Akku die Zeropage-Position 
enthält, in der die Startadresse steht. 


100 REM SAVE ADRESSE 64 

110 E=256#PEEK (56) +PEEK (55) -1:A=E-47 

120 FOR I=A TOD E:READ X:POKE I,X:NEXT 

130 H=INT (A/256) :POKE 56,H:POKE 55,A-256*H 

140 PRINT"STARTADRESSE "A: NEW 

150 DATA 32,87,226,32,0,226,160,1,169,0,32,186,255,32,14 
‚226,32,138,173,32,247 

160 DATA 183,166,20,164,21,134,251,132,252,32,14,226,32, 
138,173,32,247,183,169 

170 DATA 251,166,20,164,21,76,216,255 


100 REM SAVE ADRESSE VC 20 

110 E=256*PEEK (56) +PEEK (55) -1:A=E-47 

120 FOR I=A TO E:READ X:POKE I,X:NEXT 

130 H=INT (A/256) :POKE 56,H:POKE 55,A-256*H 

140 PRINT"STARTADRESSE"A: NEW 

150 DATA 32,84,226,32,253,225,160,1,169,0,32,186,255,32, 
11,226,32,138,205,32 

160 DATA 247,215,166,20,164,21,134,251,132,252,32,11,226, 
32,138,205,32,247,215 

170 DATA 169,251,166,20,164,21,76,216,255 
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PROFI-ASS 64 V2.0 


80: cC888 
100: C9008 
102: C898 
102: C000 
103: 

104: 

105: 

197: 

1190: 

11l: 

112: C980 
112: co08 
114: 

117: C098 
117: C890 
119: 

120: ceao 
120: C9008 
125: C0068 
150: E257 
140: E206 
158:  FFBA 
1606: E2@E 
170: ADBA 
180: B7F7 
190: FFD8 
200: 90FB 
308: C808 
390: C908 
310: C090 
320: C685 
330: C095 
340: cC908 
350: CO9A 
369: Co0D 
370: co10 
380: c013 
390: co1& 
400: c018 
410: C91A 
420: celc 
430: COiE 
440: ce21 
450: c924 
468: c027 
470: cC929 
480: Co2B 
490: Co2D 
UÜC999-C930 


20 
28 
A 
A? 
208 
20 
20 
20 
A& 
AA 
86 
84 
20 
20 
2® 
A? 
A& 
a4 
ac 


57 
oo 
oil 
oo 
BA 
öE 
8A 
F7 
14 
15 
FB 
FC 
oE 
8A 
F7 
FB 
14 
15 
Ds 


E2 
E2 


FF 
E2 
AD 
B7 


E2 
AD 
B7 


FF 


SEITE 1 


.PAG 
„OPT 


SYS ADRESSE 


H WERTE IN 


SETFNAME 
HBYTE 
SETLFS 
CHRIN 
FRMNUM 
FACINT 
SAVE 
PUFFER 


11% 
I 


u Eu) 


JSR 
LDY 
LDA 
JSR 
JSR 
JSR 
JSR 
LDX 
LDY 
STX 
STY 
JSR 
JSR 
JSR 
LDA 
LDX 
LDY 
JMP 


& 
P1,0 


SAVE ADRESSE 
AUFRUF MIT 


"NAME" , GA,STARTADR. ‚„ENDADR. 


KLAMMERN GELTEN FUER 


vc 28 
$C000 
$E257 ; ($E254) 
$E200 ;($E1FD) KOMMATEST U. BYTE => X 
$FFBA 
$E2OE » ($SE28B) KOMMATEST 
$ADBA ; ($CD8A) 
$B7F7 3 ($D7F7) FAC NACH $14,$15 
$FFD8 
sFB 


SETFNAME 3; FILENAME HOLEN 


HBYTE ; GA HOHLEN 
#1 ; SA 
#0 ;> LFN 


SETLFS ;FILEPARAMETER SETZEN 
CHRIN ;STARTADRESSE HOLEN 
FRMNUM ;UND AUSWERTEN 

FACINT 

14 

$15 

PUFFER ;IN PUFFER RETTEN 
PUFFER+1 

CHRIN ;ENDADRESSE HOLEN 
FRMNUM ;UND AUSWERTEN 


FACINT 

#PUFFER ;UEBERGABE STARTADR. 
+14 ;UEBERGABE ENDADR. 
$15 

SAVE 
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7. DER CASSETTENPUFFER 


In diesem Kapitel möchte ich näher auf den Cassettenpuffer 
eingehen. Dieser Puffer belegt den Speicherbereich von 828 
(Hexadezimal 033c) bis 1019 (Hexadezimal O3FB). Dieser 
Puffer hat 2 grundsätzliche Aufgaben. Zum einen wird in 
diesen Bereich der Filekopf, der sogenannte Header, 
generiert und vor jedem File, sei es ein Programm- oder 
Datenfile, abgespeichert und dient dann zur Kennzeichnung 
desselben. Er enthält dann folgende Parameter: 


1. Filetyp, Byte O = 828 
2. Startadresse, Byte 1, 2 = 829, 830 
3. Endadresse, Byte 3, 4 = 831, 832 
4. Filenamen ab Byte 5 = 833 


Die restlichen Bytes sind mit Space beschrieben. 


Als zweite Funktion dient der Cassettenpuffer als 
Zwischenspeicher bei der Datensicherung. Die 
abzuspeichernden Daten werden zuerst in diesen 
Speicherbereich geschrieben und erst, wenn der ganze Puffer 
beschrieben wurde, wird er auf Band übertragen. Wenn Sie 
Daten laden, werden diese blockweise geladen und dann durch 
INPUT# oder GET# aus dem Puffer gelesen, wie auch im Kapitel 
2.4 ff beschrieben. 


Der Filetyp ist folgendermaßen codiert: 


= Basicprogramm, relativ laden 

= Datenblock 

Maschinenprogramm, absolut laden 
= Daten Header 

= EOT-Block 


sb» uwDn- 
n 


Im Header sind alle wichtigen Daten enthalten, die zur 
Kennzeichnung benötigt werden. Was liegt da näher, als mit 
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Hilfe dieser Daten, die mit Programmen und Daten bespielten 


Cassetten, zu archivieren. 


7.1 ANLEGEN EINES CASSETTENINHALTSVERZEICHNISSES 


Das Programm am Ende von 7.1 druckt ein Inhaltsverzeichnis 
einer Cassette aus. Falls Sie einen Drucker haben, können 


Sie sich das Inhaltsverzeichnis auch ausdrucken lassen. 


PROGRAMMBESCHREIBUNG 


Die Zeilen 100 - 160 dienen zur Initialisierung. Hier werden 
die einzelnen Tabulatorstops in Tx$ und die verschiedenen 
Filetypen in das Feld TN$ eingelesen. 


Für den Fall, daß die Ausgabe auch zu einem Drucker 
geschickt werden soll, wird in Zeile 180 ein Druckerkanal 
eröffnet und in 190 - 220 die Überschrift an den Drucker 
übermittelt. In der Zeile 230 wird dann eine Datei zum 
Cassettenlesen ohne Namen eröffnet. Dadurch wird der nächste 


Header eingelesen. 


Durch PEEK werden in den Zeilen 240 - 270 Typ-Byte, Start- 
und Endadresse und Filename aus dem Puffer gelesen und 
formatiert. In den Zeilen 280 - 290 wird aus Start- und 
Endadressen die Programmlänge in KByte berechnet. 


Durch die Zeilen 300 - 320 werden die Daten auf Drucker und 


Bildschirm ausgegeben. 
In Zeile 330 wird über die Programmlängen der Zählerstand 


berechnet. Nachdem dann die Datei geschlossen wurde, springt 
das Programm wieder zum OPEN - Befehl. 
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KRERRHRKKREKRIIIRKRKR HH HN TH HH TH TH HH HR KR HR KH HN HH HK HH RN HH TR TH HN HH RER IN 
180 REM * INHALTSVERZEICHNIS#** 
KAERKKRKRKHERRHTRTRKRN TEN HR RA HHHHHH HHTKH RH KH REN KHK RER HH RER HR RR 
116 PA=828: REM _STARTADRESSE IM CASSETTENPUFFER 
128 PRINT"LDOWNZ2IDRUCKEN ? LJ/NJ "5D$ 
130 GET D$: IF D$=""THEN 138 
146 T1$=CHR$ (16) +"85" : T2$=CHR$ (16) +" 10": TI$=CHR$ (16) +"20" 
= T4A$=CHR$ (16) +" 30" 
159 TS$=CHR$ (16) +"38" 2 T6$=CHR$ (16) +"50" 2 T7$=CHR$ (16) +"63" 
: REM_TABULATORSTOPS 
160 TN$ (6)="RELATIV":TN$ (2) ="ABSOLUT": TN$ (5)="DATEI" 
17@ IF D$<{>"J"THEN 236 
186 OPEN 2,4 
198 PRINT#2, T1$"LFN"T2$" ZAEHLER"T3$"TYP"TA$"K-BYTE"TS$" 
ANFANG"TA$" ENDE"; 
208 FRINT#2,T7$" NAME" 
228 PRINT#2 
238 OPEN 1,1 
2469 TY=PEEK (PA) : TY$=TN$ (TY-1) 


250 A$=" :"+RIGHTS(" "+STR$ (PEEK (PA+1) + (256*PEEK (PA 
+2))-1),6) 

268 B$=" -"+RIGHTSC" "+STR$ (PEEK (PA+3) + (256*PEEK (PA 
+4))-1),6) 

278 C$=": ":FOR I=5 TO 29: C$=C$+CHR$ (PEEK (PA+I)) NEXT 

286 T=VAL (RIGHT$ (B$, 6) )-VAL (RIGHTS (A$,6)) 

298 K$=RIGHT$(" "+STR$ (INT (T/1024*100) /100) ,6) 

589 PRINT Z5 TY$5K$5 A$B$: PRINT C$:PRINT 

318 N=N+1:N$=RIGHTS (" "+STR$ (N),3) 


315 IF D$<>"J"THEN 330 

328 PRINT#2,T1$5N$;5 T2$525 T3$5 TY$5 T4$;5K$;5 TS$5A$; T6$; 
BS$; T7$;5C$ 

358 Z=INT (Z+(T/212)+4+2%*%%*(N/100)) 
:REM_BANDZAEHLER BERECHNEN 

348 CLOSE 1 

358 GOTO 230 
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7.2 ANZEIGE DER GEFUNDENEN DATEIEN 


Das Auslesen des Filenamens mittels eines PEEK-Befehls kann 
auch innerhalb eines Dateiverwaltungsprogramms nützlich 
sein. Haben Sie sich noch nicht darüber geärgert, daß, wenn 
Sie von einem Programm eine bestimmte Datei einlesen wollen, 
der Computer ewige Zeit sucht, um schließlich 
"?FILE NOT FOUND" auszugeben. Der Grund dafür war 
vielleicht, daß Sie das Band etwas zu weit vorgespult 
hatten. 


Wenn der Rechner Ihnen aber sagt, welche Dateien er findet, 
können Sie leicht feststellen, ob Sie zu weit gespult haben 
oder nicht. Vorausgesetzt natürlich, daß Sie die ungefähre 
Reihenfolge der Dateien auf Band kennen. 


Die folgenden Basic-Zeilen veranlassen den Computer, jede 


Datei, die er findet, anzuzeigen. 


188 INFUT"FILENAME"SF$ 

118 L=LEN(F$) 

128 FE$="" 

138 OPEN 4,1,0,FE$ 

140 FOR I=0 TO 15:FE$=FE$+CHR$ (PEEK (833+1)) :NEXT 

158 PRINT:PRINT"FOUND ";sFE$ 

160 IF LEFT$(FE$,L)<>LEFT$(F$,L)THEN CLOSE 4:G0OSUB 200 
:G0T0O 120 

178 PRINT:PRINT"FILE WIRD GELADEN" 

208 POKE 198,09:WAIT 198, 1:RETURN 


Durch den OPEN - Befehl ohne Namen in Zeile 130, veranlassen 
Sie den Rechner, jeden Datenkopf in den Puffer zu laden. 


In Zeile 140 - 160 wird dann der Filename mittels PEEK aus 
dem Puffer in FE$ übertragen und in Zeile 170 angezeigt. 
Ergibt der Vergleich von FE$ mit dem gewünschten Filenamen 
in Zeile 180 keine Übereinstimmung, wird die Suche 
fortgesetzt. Anderenfalls wird die Datei geladen. 
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7.3 SELBSTSTARTENDE PROGRAMME UND PROGRAMMSCHUTZ 


Bis jetzt haben wir nur Daten aus dem Cassettenpuffer 
ausgelesen. Dieser Puffer eignet sich aber auch 
vortrefflich, um Daten oder Programme aufzunehmen. So ist es 
möglich, durch diesen Puffer noch weitere Daten oder ein 


Programm mit einem anderen Programm abzuspeichern. 


Der Puffer belegt den Speicherbereich von 828 bis 1019. Er 
ist also 191 Zeichen lang. Zur Informationsübergabe werden, 


wenn er als Header abgespeichert wird, maximal 
16 +2+2+1 (Filename, Startadresse, Endadresse, 
Typebyte) = 21 Byte benötigt. Es bleiben also noch 170 Byte 
übrig, ausreichend Platz, um kleine Maschinenprogramme 
unterzubringen. 


Als Beispiel beschreibe ich Ihnen hier ein kleines Programm, 
das ein Vorprogramm erzeugt, das Ihren Wünschen entsprechend 
z.B. das nächste Programm automatisch lädt und startet. 


Solche Vorprogramme können auch dazu dienen, Ihre Programme 
zu schützen. Ebenfalls kann mit solch einem Vorprogramm 
erreicht werden, daß vor dem Laden des Hauptprogramms der 
Basic-RAM verschoben wird, um vor das Basic-Programm noch 
eine oder mehrere Grafikseiten abzulegen. Dem Programmierer 
sind hier keine Grenzen gesetzt. Doch nun zu unserem 


Beispiel. 


Ich habe dieses Beispiel gewählt, da es einerseits die 
allgemeine Technik zeigt, und andererseits auch von einem 


*Nur-Anwender“ recht allgemein genutzt werden kann. 


Hier ist die Programmbeschreibung: 


In Zeile 10 wird der Filename abgefragt, unter welchem das 
Hauptprogramm abgespeichert werden soll. In Zeile 20 und 30 
wird der Filename durch Auffüllen mit "SPACE" auf eine Länge 
von 16 Zeichen gebracht. Durch die Zeilen 40 bis 70 wird an 
den Filenamen ein Maschinenprogramm angehängt, welches in 
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den Datazeilen ab Zeile 180 steht. 


Da die Programme für VC20 und C-64 bis auf die Datas 
identisch sind, sind von dem Lader-Programm für den C-64 nur 


die Datazeilen ausgedruckt. 


Über die Zeilen 80 und 90 haben Sie nun die Möglichkeit, 
Basic-Befehle einzugeben, die später nach dem Laden des 


Vorprogramms automatisch ausgeführt werden. 


Wenn Sie also wünschen, daß ein folgendes Basic-Programm 
geladen und gestartet werden soll, geben Sie LOAD RETURN RUN 
RETURN RETURN in Kurzbefehlen ein: 


LIE .STT 


Aus programmtechnischen Gründen, die ich später beschreiben 
werde, ist es bei diesem Programm nicht möglich, mehr als 10 
Zeichen zu übergeben. Diese Zeichen werden dann an den 
Filenamen hinter das Maschinenprogramm angehängt (Zeile 
100 - 150). 


In Zeile 160 wird der Zeiger zu einer Systemroutine, der 
Eingabe-Warteschleife, auf das Maschinenprogramm im 


Cassettenpuffer umgesetzt. 


Die Zeile 170 speichert dann mt Hilfe des im letzten Kapitel 
beschriebenen Maschinenprogramms, diesen Vektor ab. Sie 
müssen also hinter den SYS-Befehl die Startadresse 
schreiben, die Ihr SAVE ADRESS-Programm hat. 


Durch diesen Speicherbefehl wird der Filename mit 
Maschinenprogramm und Basic-Befehlen in den Puffer und auf 
Band geschrieben. Nach dem Programmende springt der Computer 
über den Vektor in 770, 771 normalerweise in die 
Eingabe-Warteschleife. Da dieser aber in Zeile 160 auf unser 
Maschinenprogramm im Cassettenpuffer gesetzt wurde, springt 
er dorthin und arbeitet es ab. Da wir im Ausgabestring dem 
Rechner den Befehl LOAD gegeben haben, versucht er das 
nächste Programm zu laden. Durch Drücken der 
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RUN/STOP - Taste kann man diesen Vorgang unterbrechen, um 
das Hauptprogramm hinter das Ladeprogramm zu speichern, das 


vom Vorprogramm geladen werden soll. 


Wenn Sie ein Programm hinter den Lader geschrieben haben, 
spulen Sie das Band zurück zum Start des Ladeprogramms und 
geben LOAD und RETURN ein. 


Ihr Computer findet nun das Ladeprogramm, lädt dieses, lädt 


sofort danach das folgende Programm ein und startet es. 


Für Interessierte und Fortgeschrittene möchte ich nun diese 


Technik und das Programm genau erklären. 


Die zwei Grundlagen dieser Technik sind folgende: 


1. Übergabe eines Maschinenprogramms in den 
Cassettenpuffer durch Anhängen an den Filenamen, 


2. Änderung von Vektoren, z.B. dem zur Eingabeschleife 
auf ein eigenes Maschinenprogramm und Speicherung 
eben dieser geänderten Vektoren. Im eigenen 
Maschinenprogramm muß dann vor dem Sprung in das 
geladene Programm der in das eigene 
Maschinenprogramm zeigende Vektor wieder auf den 
alten Wert gebracht werden. 


3. Als Maschinenprogramme abgespeicherte Speicher- 
bereiche werden immer an die Stelle geladen, von wo 


sie abgespeichert wurden. 


Ihr Rechner besitzt in den Speicherstellen 768 - 819 eine 
Reihe von Vektoren, über welche er in bestimmte 
Unterprogramme springt. Durch Veränderung dieser Zeiger 


können Sie ein eigenes Programm dazwischenschalten. 
Die Eingabe-Warteschleife ist das Unterprogramm, das Ihren 


Commodore geduldig auf irgendeine Eingabe warten läßt. 
Machen Sie eine Eingabe, wertet und führt er sie aus, um 
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anschließend wieder in diese Schleife zurückzukehren. 


Durch unser Programm wird nun ein Vorprogramm erzeugt, das 
den Vektor zur Eingabe-Warteschleife mit der Startadresse 
eines eigenen Programms überschreibt, das mit dem Filenamen 


in den Speicher geschrieben wurde. 


Wenn Sie selber weitere Experimente machen wollen, können 
Sie natürlich auch Ihr Maschinenprogramm z.B. in den Bereich 
$2Co - $2FF (704 - 7166) legen und als Vorprogramm den 
Bereich $2C0O - 303 abspeichern. 


Doch sehen wir uns nun das Maschinenprogramm an. In den 
Zeilen 200 - 230 wird der Vektor zur Eingabe-Warteschleife 
wiederhergestellt. Ab der Speicherstelle $036C sind Ihre 
Eingaben abgespeichert. Diese werden in den Zeilen 250 bis 
290 in den Tastaturpuffer übertragen. Durch den Sprung am 
Ende des Programms in die Eingabe-Warteschleife wird der 
Rechner veranlaßt, die Befehle, die im Tastaturpuffer 


stehen, auszuführen. 


Das hier dargestellte Beispiel ist zwar recht einfach, hat 
aber den Nachteil, daß Sie nur wenige Befehle aufgrund des 
begrenzten Tastaturpuffers übergeben können. Sie können 
jetzt aber, wenn Sie das Prinzip verstanden haben, leicht 
dieses Programm auf Ihre eigenen Bedürfnisse hin abänderen, 
indem Sie im Maschinenprogramm ab Zeile 240 Ihre eigene 
Routine schreiben, und diese mit einem Sprung in die 


Eingabe - Warteschleife abschließen. 


Ihnen ist bestimmt schon klar geworden, daß man diese 
Technik auch sehr gut zum Programm-Schutz verwenden kann, da 
sich das Programm ja selbst startet. Wenn Sie zusätzlich 
noch einen Programmabbruch durch die RUN/STOP - Taste 
unterbinden und das Hauptprogramm so abändern, daß es nur in 
Verbindung mit dem Lader lauffähig ist, hat ein fremder 
Anwender keine Möglichkeit, Einsicht in Ihr Programm zu 
nehmen. 


Der ganze Schutz wäre aber nutzlos, wenn ich hier eine 
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genaue Anleitung geben würde. Ich hoffe aber, daß Sie nach 
meinen Ausführungen und mit etwas Maschinenpro- 
grammierkenntnis selbst in der Lage sind, eigene 
Autostartroutinen zu entwickeln. 


PROFI-ASS 64 V2.0 SEITE 1 
110: 0351 .OPT P1,0 
120: 0351 *= 0351 


130: 0351 
1306: 0351 


146: 5LADER PROGRAMM 

150: 0351 

150: 05351 

1606: A483 VECTOR = $A483 ; ($C483) VECTOR 

185: ; IN DIE EINGABESCHLEIFE 
170: 989C6 PANZ = $C&6 

180: 0277 PUFFER = 3277 ; TASTATURPUFFER 

185: 036C TABEL = $36C ; TABELLE DER BASIC-BEFEHLE 


190: 0351 
190: 0351 


209: 0351 AI 83 LDA #<VECTOR ; SETZEN DES ALTEN 
210: 0353 BD @2 03 STA #302 ; VECTORS 
220: 0356 AI A4 LDA #>VECTOR 

239: 0358 8D 83 03 STA $303 

234: 3 

235: 5 WERTE AUS TABELLE 

237: ;IN DEN TASTATURPUFFER 

238: ; UEBERTRAGEN 

239: ’ 

240: 035B AE &C 03 LDX TABEL ; ANZAHLDER ZEICHEN 
250: 835E 86 C6 STX  PANZ 

260: 0360 BD &C 63 LOOF LDA TABEL,X 

270: 0363 9D 77 02 STA PUFFER,X 

280: 0366 CA DEX 

290: 0367 De F7 BNE LOOP 

294: 3 

295: ;IN DIE EINGABE-WARTESCHLEIFE 
297: 3 ZURUECKSPRINGEN 

299: ; 

300: 0369 AC 853 A4 JMP  VECTOR 

U0351-836C 
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KERKKÄERERKRKRIRRKEHH RHEIN RER HH TH HH HK RN HH HR HH HR HH N 


5 


REM LADER FUER VC-20 


KRRERRRRKRKENRRRHNE NER KENNE HERNE HEHE KR HR HR REKEN 


10 
20 
39 
40 
59 
60 
79 
80 
99 
95 

100 

119 

120 

138 

149 

159 

160 

179 

180 


190 


INPUT"FILENAME ";F%$ 
SP$=" " 
F$=LEFT$ (F$+SP$, 16) :5=853 
FOR I=0 TO 26 
: READF 
F$=F$+CHR$ (F) 
NEXT 
PRINT"AUSGABESTRING MAX. 18 ZEICHEN " 
PRINT"T = RETURN, AM ENDE 2 MAL" 
INPUT A 
LA=LEN (A$) :IF LA>10 THEN 90 
F$=F$+CHR$ (LA) 
FOR I=1 TO LA 
W$&=MID$ (A$,I,1): IF W&="T"THEN W$=CHRS$ (13) 


FS=F$+W$ 
NEXT 

POKE 770,81:POKE 771,3 

SYS 24528F$,1,768, 772 

DATA 169,131,141,2,3,169,196,141,3,3,174,108,3, 134,1 

98,189, 108,3, 157,119 

DATA 2,202,208,247,76,196,131 


KERRKRRRTERTHRN HH TEEHHHHEH NE HH HERE HR HEHE KH HERNE ER RN RERRERT 


5 REM LADER FUER C-64 


KRERARKRERKRKRHRTHHTH HR HH NE HER EHER EHER NH INH HH HR HER HT RR RER RR 


. 


180 DATA 169,131,141,2,3,169,164,141,3,3,174,108,3,134,1 


98,189,108,3,157,119 


190 DATA 2,202,208, 247,76, 131,164 
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8. SPEICHERFORMAT DER CASSETTENSPEICHERUNG 


Um Daten oder Programme auf Band aufzuzeichnen, werden 


einzelne Bytes und Bits als Pulse aufgezeichnet. 


Zur Codierung sind drei verschiedene Zeiten definiert: 


K = kurz (176 Microsekunden) 
M = mittel (256 Microsekunden) 
L = lang .-(336 Microsekunden) 


Aus diesen Pulsen werden drei verschiedene Kombinationen 
gebildet, die die folgende Bedeutung haben: 


LLMM = Byte, diese Kombination geht jedem Byte 
vorraus 

MMKK = Bit gesetzt = 1 

KKMM = Bit nicht gesetzt = O 


Der Wert 65 wird also wie folgt auf Band aufgezeichnet: 





LLMM| MMKK | KKMM| KKMM| KKMM | KKMM| KKMM | MMKK | KKMM | MMKK 





PARITY ODD 





Dies ergibt eine Zeitspanne von 8.96 ms für ein Zeichen. 


Beim Lesevorgang zählt ein Zähler von einen bestimmten Wert 
solange abwärts, wie ein Signal an der Leseleitung des 
Computers liegt. An dem erreichten Werten erkennt dann der 
Rechner, ob es sich um ein gesetztes Bit, ein nicht 
gesetztes Bit oder Bytemarke handelt. 


Damit der Zähler aber immer zur richtigen Zeit gestartet 
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wird, ist eine genaue Synchronisierung zwischen Band und 
zähler notwendig. Aus diesem Grunde geht jedem Block eine 
Synchronisation und ein Countdown voraus. 


Ein Block ist folgendermaßen aufgebaut: 


1. Synchronisationsbytes und Count Down 
Durch diesen Teil werden die Lesebausteine auf das 
Band synchronisiert. Weiterhin enthält die 
Synchronisation auch die Informationen, um was für 


einen Block es sich handelt. 


2. Daten 


3. Prüfsummenbyte 
während des Abspeicherns und Ladens bildet der 
Rechner aus allen Bytes eine EXOR-Prüfsumme, indem 
er den letzten Wert mit dem nächsten durch eine 
logische "Exclusive-Oder" Funktion verknüpft und 
abspeichert. Wenn Lesefehler auftreten, stimmt 
diese Prüfsumme nicht mit der abgespeicherten 


überein. 

4. Wiederholung der Daten 
Diese Wiederholung wird beim Lesevorgang mit den 
schon eingelesenen Bytes verglichen, um eventuelle 
Lesefehler festzustellen. 


5. Prüfsummenbyte (wie 3) 


6. Blockendmarkierung 
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Die kompletten Files werden wie folgt abgespeichert: 


Programmfiles Datenfiles 
1. Header Header 
2. Programm Datenblock 


evtl. weitere 
Datenblöcke 


3. evtl. EOT-Block evtl. EOT-Block 
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9. APPEND VON BASICPROGRAMMEN 


Sie haben sich bestimmt schon darüber geärgert, daß das 
Commodore Basic 2.O keine Befehle zur Verfügung stellt, um 


mehrere Programme miteinander im Speicher zu verknüpfen. 


Wieder einmal kommen uns die Basic-Zeiger 43, 44 / 45, 46 zu 
Hilfe. Sie "verbiegen" den Basic-RAM-Startzeiger auf das 
Ende des im Speicher befindlichen Programms und laden das 
anzuhängende Programm nach. Anschließend muß der Zeiger 43, 


44 wieder auf den alten Wert gebracht werden. 
Im einzelnen müssen Sie wie folgt vorgehen: 

1. Laden Sie das erste Programm ein. Die Zeilennummern 
müssen alle kleiner sein, als die des anzuhängenden 
Programms. Sind sie es nicht, arbeitet das 
zusammengefügte Programm nicht so, wie es eigentlich 
sollte. 

2. Stellen Sie durch 


PRINT PEEK(43),PEEK(44) 


die Basic-Startadresse fest und notieren Sie sie am 


besten. 


3. Geben Sie nun 


POKE43, (PEEK(45)+256*PEEK(46)-2)AND255 
POKE44, (PEEK(45)+256*PEEK(46)-2)/256 


ein. 
Da am Ende eines Basicprogramms immer zwei Null-Bytes 
zur Endmarkierung stehen, müssen Sie den Endvektor um 


zwei Bytes vermindern (Siehe auch Kapitel 2.1). Nun 
haben Sie scheinbar kein Programm mehr im Speicher. 
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Dies können Sie überprüfen, wenn Sie LIST geben. 


4. Laden Sie nun das zweite Programm ein. 
Wenn Sie jetzt LIST geben, erscheint nur das zweite 
Programm. 


5. Schreiben Sie nun die alten Werte wieder in die 
Speicherstellen 43, 44. 


Durch diese Prozedur haben Sie nun zwei Programme aneinander 


gefügt. 


Eleganter geht es natürlich mit einem Maschinenprogramm. Das 
folgende kleine Programm erkennt durch ein ( @), dem 
Klammeraffen, als erstes Zeichen im Filenamen, daß das zu 
ladene Programm an das im Speicher befindliche angehängt 


werden soll. 


PROGRAMMBESCHREIBUNG 


Durch die Initialisierung wird der Ladevektor auf dieses 
Programm verschoben. Dadurch wird bei jeder Ladeoperation zu 


diesem Programm verzweigt. 


In diesem Programm wird dann das erste Zeichen des 
Filenamens auf ( @) getestet. Findet das Programm dieses 
Zeichen nicht, springt es in die alte Routine. Wird dieses 
Zeichen gefunden, wird in den Ladestartadressenvektor 
$c3/$C4 der Programmendvektor minus 2 übertragen und das 
Zeichen ( @) im Filenamen gelöscht. Danach springt das 
Programm wieder in die alte Laderoutine. 
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PROFI-ASS 64 V2.0 


253: C299 
30: C290 
32: ca88 
32: C908 
33: 

34: C8088 
34: C988 
35: 

36: C998 
36: co98 
40: 0330 
50: FA4AS 
60: 00BB 
7@: 80B7 
80: 90053 
98: 892D 
92: C080 
92: C088 
93: C908 
93: Cc980 
95: 

96: 

97: C980 
97: co88 
100: C008 
110: c8092 
120: Cc094 
130: c907 
146: CO9A 
142: Ce2B 
142: C00B 
144: 

146: C06B 
146: C90R 
150: C90B 
169: c8eC 
179: CO8E 
180: co1® 
199: ce12 
195: c914 
209: C915 
219: ce17 
220: co197 
230: ce1B 
240: cCo1D 
2590: coiF 
260: co21 
279: c822 
280: c924 
298: C026 
390: c027 
JIC888-C92A 


A? 
Az 


8D 


60 
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Ai 
c7 


38 
AS 
EI 
85 
AS 
EI 
85 
18 
Eö 
C6 
68 
ac 


@B 
co 
39 03 
51 03 


89 
BB 
40 
12 


2D 
e2 
c3 
2E 
808 
c4 


BB 
B7 


AS FA 


SEITE 1 


*= 


&C0008 


.OPT P1,0 


sxx#x##%# MERGE KRRRRRERRER 


5WERT IN KLAMMER GILT FUER 


; vc 28 

VECTOR = $330 ;LADEVEKTOR 

LADEN = $FAAS 3 ($F549) LADERDOUTINE 
FILEADR = $BB ;ZEIGER ZUM FILENAMEN 
FILELNG = $B7 ; FILENAMENLAENGE 
STARTADR = &C3 ;ZEIGER AUF PRG. START 
PROGEND = $2D ;ZEIGER AUF PRG. ENDE 


; INITIALISIERUNG DES 


; PROGRAMMS 


INIT LDA 
LDX 
STA 
STX 
RTS 


#<START 
#>START 
VECTOR 
VECTOR+1 


; HAUPTPROGRAMM 


START PHA 
LDX 
LDA 
cMP 
BNE 
SEC 
LDA 
SBE 
STA 
LDA 
SBC 
STA 
CLC 
INC 
DEC 
ENDE PLA 
JMP 


80 

(FILEADR,X) 

te" ;ERSTES ZEICHEN ’@’ 
ENDE ;NEIN => NORMAL LADEN 


PROGEND 

#2 ;ZEIGER UM 2 ERNIEDRIGEN 
STARTADR ;IN LADESTARTADR. 
PROGEND+1 

#0 

STARTADR+1 


FILEADR ; °@’” LOESCHEN 
FILELNG 


LADEN 


57 


KHEIKKRRKRKKNTHNTIH NH RE EHER IHIERHRRRKHHH HRH RER HER RR RR 
10 REM MERGE C64 
KERKERHHRERHKRHHTTN NN TER HH HN NH HER HN HR HH HERR HH HR ER FEN 
20 E=256#PEEK (56) +PEEK (55) -1:A=E-41 
30 FOR I=A TO E:READ X:POKE I,X:NEXT 
48 READ X,Y,Z:X=A+X: Y=A+Y: Z=A+Z:H=INT (Z/256) 
45 POKE X,Z-256*H:POKE Y,H 
4& POKE E-1,PEEK(816):PDKE E,PEEK(817) 
50 H=INT (A/256) :POKE 56,H:POKE 55, A-256%*H 
65 SYS A:NEW 
32008 DATA 169, 224,162,127,141,48,3,142,49,3,96,72,162,0,1 
61,187,201,64,208, 18 
32001 DATA 56,165,45,233,2, 133,195, 165,46, 233,0,133,196,24, 
230, 187,198, 183,104 
32002 DATA 76,165,244,1,3,11 


KERERKKERRRERRRERERERT NN KR TH NENNEN HEN ER IE HH KH EN KH EN NN RER 
10 REM MERGE VC20 
KERKERKIERKUERHINTKEHHT TEN HH NE EN HEN HEN IN ER NER HEN HER RR 
20 E=256#PEEK (56) +PEEK (55) -1:A=E-41 
30 FOR I=A TO E:READ X:POKE I,X:NEXT 
40 READ X,Y,Z:X=A+X: Y=A+Y: Z=A+Z:H=INT (Z/256) 
45 POKE X,Z-256#H:POKE Y,H 
46 POKE E-1,PEEK(816):POKE E,PEEK(817) 
50 H=INT(A/256) :POKE 56,H:POKE 55,A-256*H 
65 SYS A:NEW 
100 DATA 169,224,162,127,141,48,3,142,49,3,96,72,162,0,1 
6&1,187,201,64,208,18 
110 DATA 56,165,45,233,2,133,195,165,46,233,0,133,196,24, 
230,187,198,183,104 
120 DATA 76,73,245,1,3,11 
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10. STEUERUNG DER DATASSETTE PER PROGRAMM 


Bis jetzt habe ich nur über den Lade- und Speichervorgang 
mit Ihrer Datassette geschrieben. Dabei haben wir gesehen, 
daß das Band automatisch gestartet und gestoppt wurde. Der 
Computer besitzt also die Möglichkeit, den Motor zu Steuern. 
Unter dem Motto, "was der Computer kann, kann ich schon 
lange", werde ich Ihnen jetzt beschreiben, wie Sie diese 


Steuerungsmöglichkeit in Ihrem Programm nutzen können. 


Mit folgenden Speicherstellen können Sie den Motor steuern 


und abfragen, ob eine Taste am Recorder gedrückt wurde: 


Funktion 


AND 223 
OR 32 
[e] an 
1 aus 
16 gedrückt 





Auf eine Taste am Recorder warten: 


Vc 20 C-64 





WAIT 37151,64,64 WAIT 1,16,16 


Als Anwendungsbeispiel, wie Sie die Steuerungsmöglichkeiten 


nutzen können, folgt ein Programm, das Ihnen das Suchen 
eines Programms, das unter vielen auf einer Cassette 
abgespeichert ist, abnimmt. Es erstellt einen Katalog aller 
auf Ihrer Cassette gespeicherten Programme und findet ein 


bestimmtes Programm selbständig. 
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Das Programm arbeitet nach folgendem Prinzip: 


Nachdem Sie ein oder mehrere Programme hinter dieses 
Beispielprogramm auf Cassette abgespeichert haben, stellt es 
mit Ihrer Hilfe und der Variable TI die Zeit fest, die der 
Cassettenrecorder benötigt, um vom Ende des 
Katalogprogrammes bis zum zu katalogisierenden Programm 
vorzuspulen. Dieser Zeitwert wird mit dem Filenamen des 


Programms in Datazeilen abgespeichert. 


Soll später ein bestimmtes Programm gesucht werden, wird der 
Cassettenmotor beim Vorspulen solange angelassen, bis der 
aktuelle Zeitwert mit dem abgespeicherten übereinstimmt. 
Nach Drücken der PLAY-Taste wird dann das gewünschte File 


geladen. 


So bedienen Sie das Programm: 


Dieses Programm wird am Anfang der Cassette abgespeichert. 
Mit einem Abstand von ca. 10 Sekunden können Sie dahinter 
wie gewohnt die anderen Programme abspeichern. Sollen die 
Programme in den Katalog aufgenommen werden, notieren Sie 
sich die Startzählernummern und Filenamen der einzelnen 
Programme. Anschließend spulen Sie die Cassette an den Start 
zurück und laden das Katalogprogramm. Nach Starten des 
Programms wählen Sie den Punkt Neueingabe. 


Zuerst werden Sie gebeten, die entsprechenden Filenamen in 
der richtigen Reihenfolge einzugeben. Sie werden dann vom 
Programm aufgefordert, den schnellen Vorlauf am Recorder 
einzustellen. Nun können Sie den Recorder durch Drücken der 
SPACE - Taste starten und bei den notierten Zählerständen 
genauso stoppen, wieder starten und beim nächsten Filestart 
stoppen, bis Sie so allen eingegebenen Programmen einen 
Zeitwert zugeordnet haben. Als letztes speichern Sie das 


Katalogprogramm wieder am Cassettenanfang ab. 


Nun können Sie komfortabel ein im Katalog gespeichertes 


Programm nach der Angabe "LADEN" aus einem Bildschirmmenue 
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wählen. Bei gedrückter FFWD spult der Rechner bis zum 
gewünschten Programm. Nach Drücken der PLAY- und 
SPACE- Taste wird das Programm geladen. 


PROGRAMMBESCHREIBUNG 


In den Zeilen 120 bis 170 sind die Unterprogramme zum 
Starten und Stoppen des Motors. Soll das Programm auf einem 
vc 20 laufen, müssen die REM-Anweisungen in den Zeilen 130 
und 160 gestrichen werden. Weiterhin müssen Sie in den 
Zeilen 120 und 150 hinter POKE 192,0: ein REM einfügen. 


In den Zeilen 180 bis 340 wird das Programm initialisiert 
und das Menue auf den Bildschirm geschrieben. Bei der 
Initialisierung werden die Namens- und Zeitfelder 
dimensioniert und die Repeat-Funktion für alle Tasten 
eingeschaltet. Mit Hilfe der Betriebssystem-Routine SCREEN 
(65517) wird der Computertyp festgestellt und 
dementsprechend der Start vom Video- und Farbram gesetzt. 
Zuletzt werden die Variablen zur Motorsteuerung entsprechend 
dem Computer belegt (Zeilen 240 und 260). Aufgrund der 


Eingabe wird zur "Neueingabe" oder zum "Laden" verzweigt. 


In den Zeilen 350 bis 660 befindet sich der Block 
"Neueingabe". In der Zeile 390 wird die Anzahl der schon 
eingegebenen Files über READ aus den Datazeilen eingelesen. 
In den Zeilen 400 - 420 werden die neuen Filenamen 
eingelesen und im Feld N$(n) abgespeichert. 


In den Zeilen 530 bis 580 wird die Spulzeit zwischen den 
Startpunkten der einzelnen Programmen festgestellt und, den 
eingegebenen Filenamen entsprechend zugeordnet, im Feld 
2S(n) gespeichert. Vorher wird in der Zeile 580 ein Offset 
von 10 abgezogen, um die Auslaufzeit des Motors 
auszugleichen. Aus gleichem Grunde wird bei der Summation 
der einzelnen Differenzzeiten der Zeitwert 10 addiert. 
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Um Fehlbedienungen zu vermeiden wird in Zeile 420 getestet, 
ob eine Taste am Recorder gedrückt ist und der Anwender ggf. 


gebeten die STOP-Taste zu betätigen. 


In den Zeilen 600 - 660 werden Filenamen und Zeiten in 


Datazeilen geschrieben und das Programm beendet. 


In Zeile 670 beginnt der Programmpunkt "Laden". Die 
Datenanzahl und die Filedaten werden eingelesen und in den 
Zeilen 720 - 820 werden die Files, je 8 Stück pro Seite, auf 
dem Bildschirm mit einem (>), das über die Zeilen 770 - 810 
gesteuert wird, ausgedruckt. Ist die Abfrage nach der Taste 
F7 in Zeile 790 positiv, wird nach Zeile 830 zur Such- und 


Laderoutine verzweigt. 


Nach dem Test, ob eine Taste am Recorder gedrückt ist (840) 
wird in der Zeile 900 wird mit dem WAIT - Befehl auf das 
Drücken der F.FWD-Taste am Recorder gewartet und dann, 
entsprechend der abgespeicherten 2eit der Cassettenmotor 
angelassen (Zeile 920 - 940). 


In den Zeilen 950 - 1010 wird das gewünschte Programm 
geladen. Würde das Programm vom Programmodus her geladen, 
könnten nur Programme geladen werden, die kleiner als das 
Katalogprogramm sind. Um das zu vermeiden, wird der LOAD - 
Befehl, bzw. der FastTape LOAD-Befehl L auf den Bildschirm 
und RETURN in den Tastaturpuffer geschrieben. Somit wird das 
Programm aus dem Direktmodus geladen und die Basic-Vektoren 
entsprechend dem zu ladenen Programm gesetzt. 
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18 GOTO 198 
20ER 
3® 
40 
59 
68 
78 
EO REITER 
98 :REM 


KAERKRKRKRKKRHHKR HH HERNE HN HEHE HEHE HN NENNE RR HH NE 


KATALOG 


FUER CASSETTE 


L Zu Ze Ze Ze 3 
xx rk Kr x 


1808 REM WARTESCHLEIFE 
EZ 2 2 3 227272722722 272 27 2727227272 27202 27202 2 202 2722 2 2 2 2 22 2 2 2 27272 2 2122 2 27272 2 2 202 22 
1108 POKE 198,8:WAIT 198,1:GET A$:RETURN 
128 POKE 192,0:POKE 1,PEEK(1)AND 223:REM MOTOR AN C-64 
130 :REM POKE 37148,252 :REM MOTOR AN VC2® 
148 RETURN 
159 POKE 192,1:POKE 1,PEEK(1)OR 32:REM MOTOR AUS C-64 
168 :REM POKE 37148, :REM MOTOR AUS VC20 


178 RETURN 
EEE IHNEN H TH H HN HERR 
180 REM " INITIALISIERUNG 


KRERERRRKRHRKKTRKNN FT FH HN EHE HH HH N NH HH HERR HH NR HH KEN RR 

190 HD$=" * x KATALOG x «" 

200 SYS 645517:SP=PEEK (781) : ZE=PEEK (782) 
:REM_BILDSCHIRMDATEN HOLEN 

218 BS=1024:BF=55296: FW=1:IF SP>25 THEN 268 

220 BS=4* (PEEK (36866) AND 128) +64%* (PEEK (36869) AND 120) 

230 BF=37888+4* (PEEK (36866) AND 128) 

249 WZ=37151:WW=64:REM_VC29 WERTE WARTEN AUF RECORDE 
RTASTE 

250 FW=6:60T0 270 

268 WZ=1:WW=16:REM C-64 WERTE "WARTEN AUF RECORDERTAS 
IE 

278 DIM N$(50),ZS(50) :REM_NAME UND STARTPOSITION 

280 P1=3xSP+1:P2=2xSP 

290 POKE 650, 128: REM _TASTENWIEDERHOLUNG 

388 PRINT"LCLEAR]I"3:PRINT TAB(SP/2-11)HD$: PRINT" LDOWNTI" 

319 PRINT TAB(SP/2-6) "LRVSINLRVOFFJEUEINGABE" : PRINT 
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320 
330 


240 


FRINT TAB(SF/2-6) "ERVSILERVOFFIADEN" 
GOSUB 116: IF A$="L"THEN 688 
IF A$<>"N"THEN 330 


KRERRKRRKERKRRHKRRTNHTHNN TRENNEN H HK KR HN REKEN TER RR 


3530 


REM *#*%%*#*%*%*%* NEUEINGABE KHHHHHRRERRR 


KEREHKRRRKHRNRRRHHRTR HT NH TER RT HH ERIK TERHH HEINE EHER RE 


368 
370 


440 
459 


460 
470 


480 
490 


500 
5198 


520 
530 
540 
550 
566 
570 


580 
598 


PRINT"LCLEAR,DOWNZIDIE EINGABE DER FILES ":PRINT 
PRINT"MUSS SUKKSESSIV ERFOL"5:IF SP<40 THEN PRINT 
:FRINT 

FRINT"GEN. e@ = ENDE" 

RESTORE:READ A: ZA=A 

INPUT" LDOWNIF ILENAMEN" 3 N$ 

IF N$<{>"@@"THEN N$ (A)=N$: A=A+1:60DTD 400 

ZE=A: A=ZA: IF (PEEK (WZ)AND WW)=WW THEN 450 
FRINT"LCLEARIDRUECKEN SIE DIE" 

: PRINT" LDOWN, RVSISTOPLRVOFF , SPACEITASTE" 

PRINT" EDOWNJAM RECORDER": WAIT WZ, WW, 255-WW 
PRINT"I[CLEARIDRUEKEN SIE DIE ";5:IF SP<40 THEN PRINT 
:PRINT 

PRINT" ELRVSIF.FWDLRVOFF, SPACEITASTE!" 
PRINT=PRINT"STARTEN SIE DEN RECOR-";5 

:IF SP<48 THEN PRINT:PRINT:PRINT" "5 
FRINT"LLEFTIJIDER DURCH DRUECKEN" 
PRINT:PRINT"EINER TASTE UND ";:IF SP<48 THEN PRINT 
: PRINT 

PRINT"STOPPEN SIE IHN AM " 

PRINT=:PRINT"START DES GEWUENSCH-"5 

:IF SP<48 THEN PRINT: PRINT:PRINT" ";5 
PRINT"L[LEFTITEN FILES AUF GLEICHE": PRINT"WEISE." 
WAIT WZ,WW, WW: GOSUB 159:DI=® 

GOSUB 110:G0SUB 120:R=TI:REM CC AN, ZEIT MERKEN 
PRINT"LLCLEAR, DOWNSISTOPPEN BEI START:" 

PRINT" LDOWNI"N$ (A) 

GDSUB 116:60SUB 158:DI=TI-R+DI 

:REM CC AUS, ZEITDIFFERENZ BERECHNEN 
ZS(A)=DI-108:DI=DI+10:A=A+1 

IF A<XZE THEN 549:REM LETZTER FILENAME ? 


KRERRRHRRRRRFHRTRNRTER TH HH RR NETTE HH HN HN RK RR 


600 


REM * ABSPEICHERN IN DATA ZEILEN #** 


KRRRKRRRRRNERKIEHNHTNER RIEF THTHH HH NIE TRR TE HR KERNE KERN 


64 


618 


666 


PRINT" CLEAR, DOWN3JZ086DATA"A 

:REM ANZAHL IN DATAZEILE 

FOR I=ZA TO ZE-1:PRINT 21@8+1"DATA”"N$(I)","ZS(I) 
NEXT: PRINT"GOTO6S®" 

FOKE 198,11:FOR I=6 TO 16:POKE 631+1,13:NEXT 

: PRINT" CHOME]J": END 

PRINT"ECLEARISFULEN SIE JETZT ZU-" 

:PRINT"[DOWNIRUECK UND SPEICHERN" 

: PRINT" [DOWNIDAS FROGRAMM AM ANFANG" 

PRINT: PRINT"AB":GOSUB 128:END 


KERKERKKKRRRKRHHTHRHTRHT TR TH TR HERNE HH ERKENNT 
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REM #%*#%*#*%*%* LADEN DER FILES ##H#%%#%* 


KERKRRHHKRKRHRHRTRHRTHTH TH HT RHEIN HH TRIER KH HH HH RER 


680 
698 
7099 


718 


720 


30 


740 
759 
768 
770 


789 


798 


898 


818 


820 


RESTORE:READ A:FOR I=8 TO A-1:READ N$(I),ZSCI):NEXT 

PRINT"LCLEARI2"5:PRINT TAB(SF/Z-11)HD$ 

FRINT" LDOWNS, SPACE2ZIF1 = AUFW." 
:FRINT"LDOWNZ,SPACEZIFZ = ABW.”" 

: FRINT" LDOWN2, SPACEZIF7 = LADEN" 
FRINT"EDOWN41":FRINT TAB(SP/2-6) "ERVS,SPACE2IS P A 
€ E L[LRVOFFI":GOSUB 110:ZA=0 
PRINT"LCLEARI"5:FRINT TAB(SF/2-11)HD$: Z=8: PRINT 
FOR I=ZA TO ZA+8: IF N$(I)<>""THEN PRINT 

:PRINT TAB(S)IN$ CI) 

NEXT 
POKE BS+P1+Z*P2,62:FOKE BF+P1+Z*P2,FW 
GOSUB 118:REM TASTATUR ABFRAGE 

IF (ASC (A$)=133) AND (Z>®0) THEN POKE BS+P1+Z#P2,32 
:Z=2-1:60T0 750 

IF (ASC (A$) =134) AND (Z<8) AND (N$ (ZA+Z+1)<>"")THEN POK 
E BS+P1+Z#P2,32:27=27+1:60T0 758 

IF ASC(A$)=156 THEN 830 

IF ASC(A$)=133 AND Z=0 AND ZA THEN ZA=ZA-9:G0TO 720 
IF (ASC (AS) =134) AND (N$ (I) )<>""AND(Z=8) THEN ZA=ZA+Y 
:60T0 720 
GOTO 758 


KERERRRRRRRRRKTKR THEIR HER IR HEHE HH HH TR HR KERN HH HEHE HH HR RR 


830 


REM LADEN 


KRRRHÄRKRTRKRKIR RT TH HR HH HEHE RI RE HH HR HH HR EHRT RK HER 


849 
850 


IF (PEEK (WZ)AND WW) =WW THEN 87% 
PRINT"LCLEARIDRUECKEN SIE DIE" 
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860 
870 
880 


890 
988 
9718 
920 
958 
940 
959 
2768 
978 


989 
9998 


10008 
19108 


:PRINT"EDOWN, RVSISTOFLRVOFF, SPACEITASTE" 

PRINT" EDOWNJAM RECORDER" :WAIT WZ,WW, 255-WW 
PRINT"L[CLEAR2"3 PRINT TAB(SF/2-11)HD$:PRINT:PRINT 
FRINT"DRUECKEN SIE DIE "=FRINT"LDOWN, SPACE4,RVS,SF 
ACEIF.FWD ERVDFFI" 

PRINT: PRINT"TASTE" 

WAIT WZ,WW,WW:REM WARTEN AUF TASTE AM RECORDER 
PRINT" OK " 

R=TI:R2=R+Z5(Z+ZA) 

IF R2<TI THEN 950 

G0TO 930 

GOSUB 150 

PRINT"LCLEAR]"5:PRINT TAB{SP/2-11)HD$ 
PRINT:PRINT"DRUECKEN SIE DIE " 

: PRINT" [DOWN, SPACESIPLAY “ 

PRINT: PRINT"TASTE" 

PRINT" [DOWNA41":PRINT TAB (SP/2-6) "ERVS,SPACE2IS P A 
EC E L[RVOFFI":6GOSUB 119 

PRINT" TCLEAR, DOWNSJEL" 5 CHR$ (34) (N$ (Z+ZA) )CHRS$ (34) 
POKE 198,1:POKE 631,13:POKE 37148, 252:PRINT"THOMEI" 
:END 


KERN NR HN TH H HH HH HH KH HHHKKRER NN 


10208 


REM #**%*%*%* PROGRAMMANZAHL KERRRRRR 


KARKKKKKHKHKKHRRRRKRRRHHRH HH HH HER HH HR NR HR H KHK HR 


2080 


DATA © 


ERERKKKKRTITTH THINK EHEN HH HAN H HH TR 


2005 


REM *#*3#%*%*%* FROGRAMMDATAS KR % 
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11. HARDWARE DER DATASSETTE 


Bis jetzt habe ich nur die Software zur Datassetten- 
handhabung beschrieben. In diesem Kapitel möchte ich auf die 


Hardware der Datassette selbst eingehen. 


11.1 PFLEGE DER DATASSETTE 


Wie jeder andere Cassettenrecorder braucht die Datassette 
auch eine gewisse Pflege. Das häufige Auftreten eines 
"?LOAD ERROR" ist meistens die Folge eines verschmutzten, 
dejustierten oder magnetisierten Kopfes. 


1. Reinigung der Köpfe und der Andruckrolle 


Hierzu eignen sich sehr gut handelsübliche 
Wattestäbchen. Sind sie nicht greifbar, können Sie 
auch ein Streichholz oder ein anderes Holzstäbchen an 
einer Seite mit Watte umwickeln. Als Reinigungsmittel 
empfiehlt sich Alkohol, Fleckenbenzin oder Spiritus 
benutzen. 


Zur Reinigung selbst öffnen Sie den Cassettenschacht 
und drücken die PLAY-Taste. Nun können Sie mit den 
mit Reinigungsmittel getränkten Wattestäbchen die 
Köpfe (Lese- /Schreibkopf und Löschkopf) reinigen, 
indem Sie solange über die Frontseite der Köpfe 
fahren, bis die Watte keine braune Färbung mehr 
annimmt, und anschließend mit einem trockenen 
Wattestäbchen nachreiben. 


Es empfiehlt sich, im gleichen "Abwasch" auch die 
Gummi-Andruckrolle zu reinigen. Nach längerem Betrieb 
der Datassette bildet sich nämlich ein schlüpfriger 
Belag aus Bandabrieb. Dadurch wird das Band nicht 
mehr gleichmäßig am Tonkopf vorbeigeführt wird. Zur 
Reinigung legen Sie ein Stück nicht flusenden Stoffs 
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(Taschentuch oder ähnliches) über den Zeigefinger, 
befeuchten es mit einem oben beschriebenen 
Reinigungsmittel und halten den Finger bei auf PLAY 
laufender Datassette von rechts gegen die 


Andruckrolle. 
2. Demagnetisierung 


Zur Demagnetisierung benutzen Sie einen käuflichen 
Demagnetisator oder eine Demagnetisierungscassette, 
wie sie für Audioanlagen erhältlich sind. Die 
Handhabung ist dann genauso, wie sie in der 


entsprechenden Bedienungsanleitung beschrieben wird. 


11.2 WAHL UND HANDHABUNG DER CASSETTEN 


An eine Cassette zur Daten- und Programmspeicherung braucht 
man nicht die Anforderungen zu stellen wie an eine 
Audiocassette. Sie brauchen also für Ihre Datassette keine 
Cassetten mit besonders gutem Frequenzgang oder großem 
Rauschabstand. Nach dem bisher gesagtem wäre die billigste 


Cassette gerade gut genug. 


Der einzig wichtige Punkt ist, daß die Cassette keine "DROP 
OUTS" hat. DROP OUTS sind Stellen auf dem Band, an denen die 
Beschichtung mit magnetisierbaren Partikeln nicht 
einwandfrei ist. An diesen Stellen kann das Band nicht 
ordnungsgemäß magnetisiert werden, sodaß dort gespeicherte 
Informationen verlorengehen. Diese Gefahr ist leider bei 
normalen Superbilligcassetten gegeben. Meiner Meinung nach 
fahren Sie deshalb am besten mit den einfachen Cassetten 


irgend eines renommierten Herstellers. 


Um zu lange Spulzeiten zu vermeiden, empfehle ich Ihnen 
maximal C60-Cassetten zu verwenden. 


Wie Sie wissen, sind am Anfang oder am Ende des Bandes 
Vorspannbänder angebracht, um die Belastung, die beim 
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Anschlag an das Ende auf das Band einwirkt, abzufangen. 
Trotzalledem wird das Magnetband am Anfang und am Ende immer 
noch stärker belastet als an anderen Stellen, was zu einer 
Dehnung führen kann. Ich empfehle Ihnen deshalb, auf den 
ersten und letzten 10 - 20 Sekunden zur besseren 


Datensicherung keine Daten zu speichern. 


Sonst gilt für Datencassetten das gleiche wie für Audio- und 
Videocassetten. Setzen Sie sie keinen starken Magnetfeldern 
aus und lagern Sie sie staubgeschützt. Auch sollten Sie sie 
nicht zu lange lagern (über viele Monate), ohne sie einmal 
umzuspulen. Sonst treten die magnetischen Schichten des 
Bandes möglicherweise miteinader in Wechselwirkung und 


können sich dadurch verändern. 


Um Programme gegen äußere Einflüsse oder auch eigenes 
Fehlverhalten zu schützen, empfiehlt es sich, von allen 
wichtigen Daten und Programmen eine Kopie anzufertigen, mit 
der Sie nicht arbeiten und die Sie auf einer 
schreibgeschützten Cassette ablegen. So können Sie immer 
dann, wenn Ihre Arbeitskopie zerstört wird, auf das 
Mutterfile zurückgreifen. 


69 


11.3 ARBEITSWEISE DER DATASSETTE 


wie im Kapitel 8 beschrieben wird die zu speichernde 
Information in Form von Pulsen der Datassette übermittelt. 
Dies geschieht dadurch, daß beim C-64 am Portbit 3 des 
Prozessors (Speicherstelle eins) entweder eine Spannung von 
ca. 5 V= 1 oder O V = O anliegt. Bei VC 20 ist es das Bit 3 
der Speicherstelle 37152. Sowohl beim VC 20 als auch beim 
C-64 ist dieser Anschluß direkt mit den Cassettenport - 


Anschlüssen E und 5 verbunden. 


Ideal liegt das Signal folgendermaßen dort an: 


Über einige elektronische Stufen, die ich hier nicht näher 
erläutern will, gelangt das Signal zum Tonkopf. Der Tonkopf 
ist eine Spule mit Ringkern, die einen kleinen Schlitz auf 


der dem Band zugewandten Seite hat. 


Schlitz 


Magnetfeld 


Ringkern 


Tonkopf 


Entsprechend der an den Spulenanschlüssen angelegten 
Spannung entsteht ein Magnetfeld am Schlitz, das dann die 
magnetisierbaren Partikel auf dem Band in eine bestimmte 
Richtung ausrichtet. Das widealisiertes Magnetiesierungs- 
muster auf dem Band sieht dan folgendermaßen aus: 
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4 


VIEL 


Wenn Sie nun das Band lesen, wird der ganze Vorgang 


umgekehrt. 


Durch die magnetisierten Partikel wird über den 
Tonkopfschlitz eine Spannung in der Spule erzeugt, die über 
einige Baustufen wieder zu dem gleichen Spannungsverlauf 
führt wie beim Abspeichern. Diese Spannung liegt an den 
Cassettenport-Anschlüssen D und 4 an. 


Wenn nun aus irgendwelchen Gründen die Stellung des 
Tonkopfes zum Band beim Lesen anders ist als beim Speichern, 


erhalten wir folgendes Bild: 





Im oberen Teil des Schlitzes ist die Magnetisierungsrichtung 


eine andere als im unteren Teil. Beide Wirkungen löschen 
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sich gegenseitig, und die Daten werden fehlerhaft 


eingelesen. 


11.4 EIN LAUTSPRECHER FÜR DIE DATASSETTE 


Sie haben sich bestimmt schon darüber geärgert, daß Sie 
außer dem ziemlich unzuverlässigen zählwerk keine 
Möglichkeit haben, die Position Ihres Bandes festzustellen. 
Wünschenswert wäre, festzustellen, ob Sie gerade innerhalb 
eines Programms das nächste suchen, oder ob Sie gerade am 
Start eines Programms sind. So könnten Sie viel schneller 


ein bestimmtes Programm suchen. 


Diese Möglichkeit können Sie sich durch den Anschluß eines 
Lautsprechers an die Datassette schaffen. Mit Hilfe dieses 
Lautsprechers hören Sie, wo ein Programm anfängt. Sie können 
nun durch die Wiederholung von kurzzeitigem, schnellem 
Vorlauf und folgendem "Reinhören" mit PLAY viel besser den 
Start des folgenden Programms finden. 


Weiterhin ist das akustische "feed-back" bei der 
Tonkopfjustierung, das ich in Kapitel 11.5. beschreiben 
werde, ein wichtiges Hilfsmittel. 


zum Anschluß an die Datassette eignet sich jeder 
Lautsprecher. Da es ja nicht auf einen möglichst guten 
Klanggenuß ankommt, können Sie auch aus einem alten 
Miniradio den Lautsprecher ausbauen. Dieser Lautsprecher 
wird an die READ-Leitung angeschlossen. Damit Sie diesen 
Anschluß nicht überlasten, müssen Sie noch einen Widerstand 
von ca. 500 Ohm in Reihe schalten. Weiterhin können Sie noch 
ein Potentiometer von 2 - 5 KOhm in Reihe zum Lautsprecher 


schalten, um die Lautstärke regeln zu können. 
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optional 
READ 
3-5 kOhm 500 Ohm 


GRND 


Anschluß des Lautsprechers 


Am einfachsten läßt sich ein Lautsprecher an den Stecker der 
Datassette anschließen. Dazu öffnen Sie den Stecker, der an 
den Computer gesteckt wird, und klemmen den einen Anschluß 
an die GROUND-Leitung (A/1) und den anderen an die 
READ-Leitung (D/4). 


Schließen Sie dann den Stecker wieder und stecken ihn an den 


Cassetten-Port Ihres Computers. 


Schalten Sie nun den Computer ein, legen die bespielte 
Cassette ein und drücken die PLAY-Taste. Jetzt hören Sie 
entweder einen eintönigen Pfeifton oder ein zirpendes 
Geräusch. Der Pfeifton entspricht der Synchronisation und 
kennzeichnet einen Blockanfang. Das zirpende Geräusch 


entspricht den aufgezeichneten Daten. 
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11.5 KOPFJUSTAGE 


Es kann aus verschiedenen Gründen vorkommen, daß der Tonkopf 
nicht mehr in der richtigen Stellung zum Band steht, was zum 
fehlerhaften Laden führt. Dies kann z.B. passieren, wenn Sie 
Programme von einer Cassette einlesen wollen, die nicht mit 
Ihrer Datassette bespielt wurde. Es kommt aber auch vor, daß 


sich der Kopf selbständig nach längerer Zeit dejustiert. 


Mit Hilfe eines Lautsprechers ist die Dejustierung gut zu 
hören. Wenn der Kopf gegenüber dem Band auch nur leicht 
verwinkelt ist, geht dies als erstes zu Lasten der hohen 
Frequenzen. Ich möchte das anhand zweier Zeichnungen einmal 
verdeutlichen: 


niedrige 


Frequenz 


hohe 


Frequenz 





Wie aus den Abbildungen zu sehen ist, gibt es bei niedrigen 
Frequenzen immer noch Bandpositionen, bei denen über die 


ganze Spaltänge die gleiche Magnetisierung wirkt. 
Bei hohen Frequenzen liegt am Spalt immer nur eine Mischung 


verschieder magnetisierter Bereiche an. Somit werder solche 
Frequenzen gedämpft. 
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Signal auf 
dem Band 





nicht justiertem 


Kopf 


c0 
is} 
>} 
es 
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Schwellspanung 
gut justiertem 
Kopf 


Signal bei 
Signal bei 





Signale bei verschieden Tonkopfstellungen 


: Ausgangs- 


Bild 2 
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Beim Datenlesen erhalten Sie das in Abbildung 2 dargestellte 
Bild. Das vom Tonkopf aufgenommene Signal ist annähernd 
sinusförmig. Dieses Signal wird innerhalb der Datassette 
über eine Schmitt-Trigger Schaltung in computerlesbare 
Rechteckimpulse umgesetzt. Ein Schmitt-Trigger ist nichts 
anderes als ein Schalter, der sich bei einer bestimmten 
Spannungen, der sogenannten "Schwellenspannung", ein- bzw. 
ausschaltet und somit eine Rechteckspannung am Ausgang 


erzeugt. 


Aus der Abbildung 2 wird klar, daß durch einen dejustierten 
Kopf die Zeitverhältnisse zwischen den einzelnen Pulsen, die 
ja die Information enthalten, nicht mehr stimmen. Deshalb 


wird das Band fehlerhaft gelesen. 


Nach dieser theoretischen Einführung kommen wir zum 
praktischen Teil. 
Wenn Sie die neuere Ausführung der Datassette haben, finden 


Sie ungefähr in der Mitte vor dem Cassettenfach ein kleines 
Loch. 


Loch zur Tonkopfjustierschraube 


Durch dieses Loch erreichen Sie mit einem kleinen 


Kreuzschlitzschraubendreher bei gedrückter PLAY-Taste die 
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Tonkopfeinstellschraube. 


Bei den alten Datassetten gibt es kein Loch. Um bei diesen 
Geräten den Tonkopf justieren zu können, müssen Sie selber 
ein Loch in das Plastikgehäuse bohren. Die genaue Position 


dieses Lochs entnehmen Sie bitte der folgenden Zeichnung. 





1 r asTtor 
“+REW RFWD LAY» KEIECT 








Hier müssen Sie das Loch bohren 


Doch bevor wir nun beginnen, den Kopf zu justieren, noch 


zwei Warnungen: 


1. Es ist möglich, daß Sie den Kopf so sehr 
dejustieren, daß eine richtige Justage ohne 
aufwendige Hilfsmittel (Meßgeräte) nur sehr schwer 
möglich ist. Auch müssen Sie darauf achten, daß sie 
die Justierschraube nicht gänzlich herausdrehen. 
Normalerweise reichen maximal zwei Umdrehungen in 
jede Richtung aus, um den Kopf zu justieren. Meist 


reicht schon eine halbe Umdrehung aus. 


2. Nachdem Sie den Kopf neu justiert haben, kann es 
sehr gut sein, daß sie die Programme, die Sie mit 
der letzten Einstellung abgespeichert haben, nicht 


mehr laden können. 
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Damit Sie möglichst leicht die ursprüngliche Kopfstellung 
wiederfinden können und einen dejustierten Kopf besser 
justieren können, benutzen Sie das folgende kleine Programm. 
Es schreibt ein Zirpen auf Cassette mit einem großen Anteil 


hoher Frequenzen. 


Da es ja die hohen Frequenzen sind, die zuerst gedämpft 
werden, erleichtern Sie sich durch dieses Zirpen die 
Einstellung auf die Kopfstellung, mit der das Zirpen 
abgespeichert wurde, sehr. Auch können Sie damit den Kopf 


bedeutend genauer justieren. 


Geben Sie also das Programm ein und speichern es ab. 
Schreiben Sie dann auf eine leere Cassette ca. zwei Minuten 
das von diesem Programm erzeugte Zirpen. 


KRRHKRRRKRHRRRKTHRHHN THINK HR IHR IHR HR RE 
18 REM KOPFJUSTAGE HILFSPROGRAMM 164 
KHARKRRKRKRRRRHRTHRHN HN HH THINK TH RK HH HN H HH 
20 E=256*PEEK (56) +PEEK (55) -1:A=E-17 
30 FOR I=A TO E:READ X:POKE I,X:NEXT 
48 PRINT"STARTADRESSE"A 
50 PRINT:PRINT"LEGEN SIE EINE LEERCASSETTE EIN UND" 
68 PRINT:PRINT"DRUECKEN SIE RECORD & PLAY" 
78 WAIT 1,16,16 
80 PRINT:PRINT"ENDE DURCH RUN/STOP TASTE" 
98 SYS A:END 
1068 DATA 160,255, 169,255, 162,255,32,177,251,136, 208,246, 
32,225, 255, 208, 239,96 


KERKRRRRKERRKERKRRIEHK HAN HN HH N HH RR HR RER RR RR RER HR HH RR FF HR RR 
18 REM KOPFJUSTAGE HILFSPROGRAMM VE 2@ 
KEREKKRRRRKRERRNREHEHN HN NENNE N HH TH HN N HN TH HH EHRT HEN RR HH N KH KH HR RN 
28 E=256#PEEK (56) +PEEK (55) -1:A=E-17 
30 FOR I=A TO E:READ X:POKE I,X:NEXT 
40 PRINT"STARTADRESSE"A 
50 PRINT:PRINT"LEGEN SIE EINE LEERCASSETTE EIN UND" 
68 PRINT:PRINT"DRUECKEN SIE RECORD %& PLAY" 
70 WAIT 37151,64,64 
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89 PRINT:PRINT"ENDE DURCH RUN/STOP TASTE" 
98 SYS A:END 
1900 DATA 160,255,169,255,162,255,32,177,251,136,208, 246, 
32,225, 259,208, 239,96 


Spulen Sie das Band zurück, nehmen Sie den kleinen 
Kreuzschlitzschraubendreher zur Hand und drücken die 
PLAY-Taste. Führen Sie nun durch das beschriebene Loch den 
Schraubendreher senkrecht ein, bis er in der Schraube 
einrastet. Drehen sie nun jeweils eine halbe Umdrehung nach 
rechts und links von der Ausgangsposition und achten Sie 
dabei auf die typische Klangveränderung. Nur in einer 
Stellung, nämlich in der Ausgangsstellung, hören Sie die 


meisten hohen Frequenzen. 


Legen Sie nun eine bespielte Datencassette ein und 
wiederholen Sie den Vorgang. Sie werden jetzt in einem 
größeren Bereich keine Klangveränderung mehr feststellen. 
Die beste Stellung zwischen den hörbaren Änderungen ist hier 
die Mittelstellung. 


Nachdem Sie sich auf diese Weise etwas "eingehört" haben, 
können Sie auf gleiche Weise den Kopf auch auf Programme 
justieren, die Sie nicht laden konnten. Versuchen Sie auch 
hier nach Gehör die beste Kopfstellung herauszufinden. 
Danach versuchen Sie, das Programm zu laden. Läßt es sich 
immer noch nicht laden, verändern Sie die Kopfposition etwas 


und versuchen es erneut. 


Gelingt es Ihnen trotz vielfachen Versuchens nicht, das 
Programm einwandfrei zu laden, verfahren Sie so, wie es in 


Kapitel 4.1 beschrieben wurde. 


Ehe Sie aber das UNNEW-Programm laden, bzw. das 
Programmfragment abspeichern, müssen Sie den Tonkopf mit 
Hilfe der von Ihnen angefertigten Justiercassette wieder in 


die Ausgangsposition bringen. 
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11.6 ANDERE CASSETTENRECORDER ZUR DATENSPEICHERUNG 


In meinen Ausführungen habe ich mich immer auf die 
Datassette von Commodore bezogen. Es ist aber ohne weiteres 
möglich, andere Cassettenrecorder mit einer entsprechenden 
Anpassung als Aufzeichnungsgerät zu verwenden. Die Anpassung 
erfolgt durch ein Interface, welches die vom Band kommenden 
Signale in für den Rechner verständliche Rechteckimpulse 
umsetzt. Solche Interface-Bausteine werden von verschiedenen 


Herstellern recht preiswert angeboten. 


Der Vollständigkeit halber möchte ich hier eine kleine 
Schaltung zum Selbstbau darstellen. Die benötigten Bauteile 
entnehmen Sie bitte folgender Aufstellung. 


Bauteile für ein Cassettenrecorder-Interface 


Platinen - Stecker für den Cassettenport am VC 20/C64 
Stecker für den Kopfhörerausgang Ihres Cassettenrecorders 


1 
1 
1 Stecker für den Microphoneingang Ihres Cassettenrecorders 
1 IC SN 7414 (6 * Invertierender Schmitt-Trigger) 

1 Microschalter (ein/aus) 


ggf. 
1 Stecker für den Remote-Eingang Ihres Recorders. 


Als Recorder eignen sich für diese Schaltung nur solche, die 
mit einer Betriebsspannung von 4 - 6 V arbeiten und den 


Minuspol auf Masse haben. 


Die Verschaltung der Bauteile finden Sie aufder nächsten 
Seite, 
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Cass.-Port Recorder 


MIC Eing. 
Microschalter 
3 Kopfhörer 
1/3 SN7414 
® Remote 





IC Pin 14 


Beschreibung der Anschlüsse am Cassetten Port: 


A/1 = Masse 

B/2 = +5V 

Cc/3 = Cassetten-Motor (+5 V = ein) 

D/4 = Leseleitung 

E/5 = Schalterleitung für Recordertaste 


In dem IC SN 7414 sind sechs invertierende Schmitt-Trigger 
enthalten. Schmitt-Trigger sind Schaltungen, die aus einem 
beliebigen Spannungsverlauf entsprechende Rechteckimpulse 
bilden wie ich es im Kapitel 11.5 beschrieben habe. 


Von diesen sechs benötigen wir für diese Schaltung zwei, da 


es sich ja um invertierende Schaltungen handelt. 


Die Betriebsspannung dieses Bausteins entnehmen wir den 
Cassetten-Port (Pin? - A/1, Pin14 - B/2). 


Wenn Sie den Cassettenrecorder nur für Ihren Rechner 
benutzen, können Sie die Schaltung in das Batteriefach 
einbauen, und die Microphon- und Kopfhörerleitung 


festanlöten. Damit sparen Sie die Klinkenstecker. 


Sehr praktisch wäre es dann noch, wenn Sie in der 
Recordermechanik eine Stelle finden würden, wo Sie den 
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Microschalter so anbringen können, daß er bei dem Drücken 
einer Taste geschlossen wird. Geht das nicht, müssen Sie den 
Schalter außen 


anbringen und manuell betätigen, 


bevor Sie 
eine Recorder-Taste drücken. 
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12. EIN NEUES CASSETTENBETRIEBSSYSTEM - FASTTAPE 


Im ersten Teil habe ich Ihnen die Handhabung der Datassette 
mit dem im Rechner eingebauten Betriebssystem erklärt. Dazu 
habe ich Ihnen einige Programme gezeigt, die das Arbeiten 
mit Ihrem Datenrecorder vereinfachen. Nun möchte ich Ihnen 
ein neues Betriebssystem vorstellen, das nicht nur die schon 
beschriebenen Vereinfachungen beinhaltet, sondern auch noch 
ca. 10 - 20 mal schneller arbeitet, und damit eine 


Diskettenstation noch überflügelt. 
Ich muß zugeben, daß Sie sich aufgrund der Programmlänge die 
Finger fast wund tippen können, aber das Ergebnis lohnt die 
Arbeit. Das Programm hat folgende Charakteristika: 
1. 10 mal schnelleres Speichern und Laden der Programme. 
2. Unterstützung der Datenspeicherung. 
Daten können bis zu 20 mal schneller geladen und 
gespeichert werden als mit dem normalen Betriebssystem. 


3. Append von Basic-Programmen ist mit einem Befehl möglich. 


4. Das Laden in oder das Speichern von bestimmten 
Speicherbereichen ist ebenfalls mit einem Befehl möglich. 


5. Programme und Daten, die mit FastTape abgespeichert 
wurden, können sowohl vom VC 20 als auch vom C-64 gelesen 


werden. 


6. Alle FastTape Befehle arbeiten sowohl im Direktmodus als 


auch innerhalb von Programmen. 
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DIE BEDIENUNG DES PROGRAMMS 


Nach dem Laden des Programms initialisieren sie es mit 
SYS7*4096 beim VC 20 und mit SYS12*4096 beim C-64. Durch den 
Basic-Lader wird das Programm automatisch initialisiert. 
Nach einem RESET müssen Sie das Programm aber neu 
initialisieren. Jedem FastTape Befehl geht ein Pfeil nach 
links (&-) voraus. 


Ihnen stehen jetzt folgende Befehle zur Verfügung (In 
Klammern stehende Ausdrücke sind optional, müssen also nicht 


gegeben werden): 


SA = Sekundäradresse 

Sadr, Eadr = Start- bzw. Endadresse 

"name" kann auch als Stringvariable übergeben werden 
SU"NAME" .SA.SADR. EADR) FASTTAPE SAVE 

S("name") : Basic-Programm wird als 


verschiebbares File im Programm 
gespeichert und mit L an den 
Basic-RAM-Start geladen. 

S"name",1 : Basic-Programm wird als absolutes 
File gespeichert und mit Lan die 
Adresse geladen, von wo es 


abgespeichert wurde. 


S"Name",1,Sadr,Eadr : Der Speicherbereich zwischen Sadr und 
Eadr wird als absolutes File 
gespeichert. 

LU"NAME" SA. SADR) FASTTAPE LOAD 


wird dieser Befehl innerhalb eines Programms gegeben, 
startet danach das Basic-Programm analog zum LOAD-Befehl 


wieder bei der ersten Zeile. 
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L("name") 


L"name", 1 


L"name, 1,Sadr 


VU"NAME" ‚SA. SADR) 


Arbeitet analog zu L, 


Ein Programm oder Speicherbereich, 
der mit S abgespeichert wurde, wird 
entsprechend der bei S gegebenen SA 


entweder absolut oder verschiebbar 


geladen. wird dieser Befehl im 
Direktmodus gegeben, werden die 
Basic-Vektoren entsprechend dem 


geladenen Programm gesetzt. 
Programme und Speicherbereiche werden 
absolut geladen. Auch im Direktmodus 


werden durch diesen Befehl die 





Basic-Vektoren nicht geändert. 
Dadurch ist kein NEW-Befehl nach dem 
Laden eines Maschinenprogramms 
notwendig. 


Ein Speicherbereich wird an Sadr 
geladen, unabhängig davon, von 
welcher Adresse es abgespeichert 
wurde. Dadurch haben Sie z.B. die 
Möglichkeit, einen einmal abge- 
speicherten Bildschirminhalt auch 
dann wieder in den Videorom 
einzulesen, wenn Sie den vVideorom 


verschoben haben. 


FASTTAPE VERIFY 


vergleicht aber nur den Speicherinhalt 


mit den auf Band stehenden Bytes. 


MU"NAME") 


FASTTAPE MERGE 


Mit diesem Befehl können Sie ein FastTape-Programm an das im 


Speicher befindliche anhängen. 
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DS "NAME" DATASAVE 


Dieser Befehl speichert alle bis dahin definierten 
Variablen, Felder und Strings ab. Mit diesem Befehl werden 
nur die im Stringspeicher stehenden Strings abgespeichert. 


Wenn in Ihrem Programm Stringzuweisungen wie 


100 AS="TEST" 


existieren, können Sie die entsprechenden Strings nur mit 
dem gleichen Programm wieder richtig laden. Abhilfe können 
Sie durch eine Verknüpfung mit einem Leerstring schaffen. 


Hier gilt das gleiche, wie im Kapitel 5.1 beschrieben. 


DL "NAME" DATALOAD 


Mit diesem Befehl laden Sie die mit DS abgespeicherten 
Variablen, Felder und Strings. Alle bis zu diesem Befehl 


definierten Variablen, Felder und Strings werden gelöscht. 


Achtung!!! 


DS und DL muß immer in Verbindung mit einem Filenamen 
verwandt werden. Durch diese Befehle werden die Variablen, 
Felder und Strings in drei Blöcken abgespeichert bzw. 
geladen. Der Filename dient dem Computer zur Identifizierung 
des jeweils ersten Blocks. 


Achtung! ! 


Das Basic-RAM-Ende muß bei DS und dem entsprechenden DL das 
gleiche sein. Die Stringtabelle wird als absoluter Block 
gespeichert und geladen. Wenn Sie das Ende des Basic-RAMs 
heruntersetzen, nachdem Sie DS gegeben haben und dann mit 
DL Daten laden, kann eventuell ein hinter das neue 
Basic-RAM-Ende geschriebene Maschinenprogramm zerstört 
werden. 
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Damit Sie sehen, wie komfortabel Sie mit diesen Befehlen 
Datenverarbeitung betreiben können, finden Sie im nächsten 
Kapitel, ein ausführlich beschriebenes Dateiverarbei- 
tungsprogramm. Durch den Basic-Lader FT64 wird das Programm 
im C-64 ab der Speicherstelle $COOO abgelegt. 


Der Basic-Lader FT20 legt das Programm im VC 20 ab der 
Speicherstelle %$7000 ab, d.h. dieses Programm arbeitet nur 
dann in einem VC 20, wenn er voll ausgebaut ist. Es ist aber 
ohne weiteres möglich, mit Hilfe eines MONITOR-Programms und 
dem ASSEMBLER-Listing das FastTape-Programm auf einen 


anderen Speicherbereich umzuschreiben. 
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PROFI-ASS 64 


82: 
90: 
92: 
92: 
94: 
95: 


97: 


106: 
110: 
120: 
130: 
140: 
156: 
153: 
155: 
157: 
166: 
165: 
170: 
175: 
180: 
185: 
186: 
187: 
187: 
188: 
189: 
189: 
190: 
195: 
200: 
220: 
230: 
240: 
260: 
IB: 
310: 
320: 
330: 
339: 
348: 
359: 
369: 
365: 
3790: 
380: 
390: 
395: 
498: 
410: 
429: 
420: 
430: 
440: 


toao 
c090 
C008 
C990 


c000 
C090 
C000 


c0908 
coe0 


co988 
9996 
0901 
8982 
82ecCo 
99A3 
0084 
G05F 
80973 
9308 
@2Aa 
0090 
8eCc3 
OOAE 
080D7 
o35C 
C698 
DDo6 
DCe8 


C090 


to28 
FBF 


FSD2 
A82C 
FC93 
E17A 
F759 
FS5AI 
ATE7 
ATAE 
F838 
F817 
BS26 
E206 
E257 
E290 
EZOE 
AFOB 
ADSA 
B7F7 
Ab68 
A437 
Au77 
C908 
C028 
FFB7 
FFBD 


SEITE 1 


-PAG 61 
.OPFT P2 


; FASTTAPE FUER VC20 UND C-64 


;WERTE IN KLAMMERN GELTEN FUER 


; vCc 20 

*= $C0008 
COMPU 086 
PORT = $1 
ABSFLG = s2 
MOFLAG = sco 
BITC = SAS 
BEFANZ = 4 
CODE = RE 
CHRGET = 573 
VECTOR = +$308 
IROFLG = $2AO 
STATUS = 599 
STARTV = SCI 
ENDVEC = $AE 
PSUMME = &sD7 
CASFUF = $033C 
cIAI = $DD96 
cIA2 = $DL2O 
SAVING = $Fö8F 
LOADING = sF5D2 
STOP = SA82C 
ENDEN = $FC93 
BEFEND = $E17A 
FOUND = sF750 
STOEND = SFSAI 
OLD = SATE7 
INTER = $A7AE 
RPTASTE = s$F838 
PTASTE = $F817 
GABCOL = $B526 
WZEICH u $E206 
HFNAM = $E257 
HOLPAR = $E200 
CHRIN = $E26E 
SYNTAX = $AFOB 
FRMNUM = $ADBA 
FACINT = $B7F7 
CLEAR = SAb&O 
FEHLAUS = 5437 
BEENDEN = $5A677 
HOLSTA = S$FFB7 
SETNAM = SFFBD 
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PLIEVTEEVFEEPFIEPPEIFFEEUFEEUTEEPFEEUFEEUEEEVLEEPTEEFFEEPFEEPFEEFFEFTELPFEEUFEEPFEEPTE 


(2) 


($9120) 


BEFEHLSADR. HOLEN 

IRQ FLAG 

STATUSBYTE 

LADESTARTVEKTOR 

LADEENDVEKTOR 

PRUEFSUMMENBYTE 

STARTADR. VOM CASSETTENPUFFER 


ie} 

! 
[2 
>» 

nu 


{$F728) 
($F66A) 
{$C82C) 
($FCER) 
($E177) 
($F7D3) 
{$F641) 
($C7E7) 
(SA7AE} 
($FBB7) 
($F894) 
($D526) 
($E203) 
($E254) 
($E1FD) 
($E20B) 
($CF08) 
($CDBA) 
($D7F7) 
(50660) 
($C437) 
($C677) 


STATUS 


STARTADRESSE DES CIA1 
STARTADRESSE DES CIA2 


GIBT SAVING ’NAME’ AUS 
GIBT LOADING AUS 
TESTET STOPTASTE 
LADEN BEENDEN 
RUECKSPRUNG VOM LADEN 
GIBT FOUND ”’NAME’ AUS 
ENDADR. NACH X/Y 
BEFEHL AUSWERTEN 
INTERPRETERSCHLEIFE 
WARTET AUF PLAY-TASTE 
WARTET AUF TASTE 
GARBAGE COLLECTION 
WEITERE ZEICHEN PRINT 
FILENAMEN HOLEN 
FILEPARAMETER HOLEN 
ZEICHEN HOLEN 
SYNTAX ERROR AUSGEBEN 
TERM AUSWERTEN 
IN INTEGER WANDELN 
CLR 
FEHLER AUSGEBEN 


HOLEN 


FILENAMEPARAMETER SETZEN 


FROFI-ASS 64 


450: 
460: 
500: 
500: 
510: 
518: 
520: 
530: 
530: 
560: 
570: 
580: 
590: 
600: 
602: 
602: 
603: 
603: 
604: 
606: 
606: 
610: 
620: 
630: 
648: 
650: 
654: 
654: 
655: 
657: 
657: 
668: 
670: 
680: 
698: 
799: 
7190: 
729: 
730: 
740: 
750: 
755: 
7535: 
768: 
7798: 
778: 
7890: 
790: 
800: 
890: 
810: 
815: 
815: 
820: 
830: 
840: 
859: 
860: 
865: 


FFBA 
FFE4 
C096 
c908 
C908 
jeiche Ic} 


to88 
C900 
C098 
C062 
C905 
c807 
Co9A 
co92R 
Co0B 
CO0B 
ce2B 


CTOoB 
tce0oB 
C009B 
COB8E 
c919 
c212 
co14 
c017 
ce17 


c917 
c9017 
c017 
co1A 
colD 
C0208 
c022 
C025 
c027 
co28 
Co2A 
to2c 
to2F 
CO2F 
COZF 
C950 
co31 
ce32 
C035 
10936 
C0397 
Co3A 
Co3D 
Co3D 
CoSD 
COS3F 
co41 
C043 
C045 
C048 


v2 


20 
Fo 
c97 
Fo 


20 
20 
ac 
A2 
DD 
Fo 
E8 
E4 


ac 


8A 
aA 
AA 


48 
BD 
48 
4c 


.® 


oB 
08 
co 
07 


73 
04 
sr 
03 


5A 


57 


03 


oo 


A7 


oa 
co 
A7 


co 


AF 


co 


ce 


808 


AF 


SEITE 2 


SETLFS 
GET 


nu 


SFFBA 
$FFEA 


;PROGAMM INITIALISIEREN 


INIT LDA #<START 
STA VECTOR 
LDA &#>START 
STA VECTOR+1 
RTS 

5; PROGRAMMSTART 

START JSR CHRGET 35 
BEQ ENDE 
CMP  #CODE ; 
BEQ FTAPE ; 

ENDE JMP OLD ; 


FILEPARAMETER SETZEN 
EIN ZEICHEN EINLESEN 


ZEICHEN HOLEN 


MIT FASTTAPECODE 
VERGLEICHEN 
UNGLEICH => ALTE ROUTINE 


;FASTTAPE BEFEHL AUSWERTEN 


FTAPE JSR 
JSR 
JMP 
SUCH LDX 
SUCHL EMP 
BEQ 
INX 
EPX 
BNE 
JMP 


BEFEHL TXA 
ASL 
TAX 
LDA 
PHA 
LDA 
PHA 
JMP 


DATA CMP 
BEQ 
CMP 
BEO 
JMP 
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CHRGET 
SUCH 
INTER 

#0 

TAB,X 5 
BEFEHL 5 


BEFANZ 
SUCHL 
SYNTAX 3 


; 


BEFADR+1, 


BEFADR, X 


CHRGET 35 


sg" 3 
DS 

HL" 3 
DL 
SYNTAX 


x 


MIT BEFEHLSBUCHSTABEN 
AUS TABELLE VERGLEICHEN 


KEIN FASTTAPE BEFEHL 


BEFZAHL * 2 
; BEFEHLSADRESSE AUF 
STACK 


UND BEFEHL AUSFUEHREN 


DATEN SPEICHERN 


DATEN LADEN 


PROFI-ASS 64 V2.0 


865: 
879: 
879: 
880: 
880: 
885: 
885: 
886: 
887: 
887: 
890: 
895: 
895: 
896: 
897: 
897: 
998: 
988: 
900: 
910: 
916: 
920: 
920: 
16590: 
1650: 
16690: 
1660: 
1665: 
1666: 
1666: 
1679: 
1680: 
1682: 
1684: 
1699: 
1692: 
1694: 
1695: 
1709: 
1710: 
1720: 
1725: 
1730: 
1749: 
1750: 
1760: 
1779: 
1774: 
1774: 
1775: 
1776: 
1776: 
1780: 
1790: 
1890: 
1810: 
1820: 
1839: 
1840: 


co48 
C948 
C94B 
CO4E 
co51 
co54 
c054 


c954 
c054 
c054 
c059 
c0597 


c059 
c059 
c959 
Co5B 
co5D 
coSF 
C961 
C063 
C963 
C963 
C963 
C063 
C9653 


C0853 
C063 
C863 
C065 
C957 
Cc08597 
CO6B 
CO6bE 
C970 
c072 
Cc974 
C976 
Cc978 
C07A 
c97C 
C97D 
Co7F 
C082 
C085 
C088 
C088 


C088 
C088 
C088 
CO8B 
CO8D 
COBE 
C990 
c991 
C994 


20 
ac 
20 


53 


A2 
86 
A2 
86 
20 
AS 
297 
De 
a2 
BS 
95 
95 
cA 


20 
20 


20 


20 
AS 
18 
69 
ca 
20 


a2 


73 
11 
73 
61 


AC 


05 
AB 
eo 
02 
Bo 
02 
02 
oB 
94 
2A 
AB 
A& 


FT 


38 
sr 


13 
B9 


01 


33 


09 
C3 
oo 
C3 


56 


c2 


F8 
Fö& 
co 


ci 


ci 


SEITE 3 

DS JSR 
JMP 

DL JSR 
JMP 

; TABELLE DER 

TAB „ASC 


CHRGET 
DASAVI 
CHRGET 
DATLOD 


BEFEHLSBUCHSTABEN 


"SLVMD" 


;TABELLE DER BEFEHLSADRESSEN 


BEFADR .WORDSAVE-1 
- WORDLOAD-1 
„WORDVERIFY-1 
-WORDMERGE1-1 
« WORDDATA-1 


;SAVE ROUTINE 


SAVE LDX 
STX 
LDX 
STX 
JSR 
LDA 
AND 
BNE 
LDX 
LOOP1 LDA 
STA 
STA 
DEX 
BNE 
ABSOLUT JSR 
JSR 
JSR 


#$05 ; ANZAL DER SYNCHR. 
SAB } WIEDERHOLUNGEN 

#500 5 FLAG LOESCHEN 

ABSFLG 

GETPARA ; PARAMETER HOLEN 

ABSFLG 

#2 ; TEST AUF BIT 2 

ABSOLUT ; GESETZT => ABSOLUT LADEN 
#504 

%2A,X 5; SPEICHERT BASICSTART UM 
SAB,X 

SA6,X 

LOOP1 

RPTASTE 

SAVING ; ”SAVING NAME’ AUSGEBEN 
MOTOR ; MOTOR EINSCHALTEN 


3 VORSPANN SCHREIBEN 


JSR 
LDA 
CLC 
ADC 
DEX 
JSR 
LDX 


SYNCH ; 
+B9 ; 
#501 

WBYTE ; 
#$08+COMPU 
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SYBCHRONISATION 1 SCHREIBEN 


SELUNDAERADR. 


SCHREIBT SA 


INCREMENTIEREN 


PROFI-ASS 64 V2.0 SEITE 4 


1859: 096 BI A7 060 LOOP2 LDA $A7,Y 53 SCHREIBT START- UND ENDADRESSE 


18608: [099 20 35 Ci JSR WBYTE 
18790: CO9C A2 96 LDX #$06+C0MPU 
1880: Ce9E CB INY 

1898: CO9F CO 05 CPY #305 

1998: LCOA1 EA NOP 

1919: CoA2 DO F2 BNE LOOP2 
1928: LO@A4 AB 20 LDY #390 ;SCHREIBT FILENAMEN UND ’SPACES” 
1939: COAb A2 04 LDX #$94+C0MPU 
1940: COAB Bi BB LOOPS LDA ($BB),Y 
19590: COAA CA B7 CPY %B7 

1968: COAC 98 03 BCC TEXT 

1979: COAE AI 20 LDA #320 

1988: C®B® CA DEX 

1998: COB1 28 33 Ci TEXT JSR WBYTE 
20088: C®B4 A2 05 LDX #$05 

2010: C®Bö6 C8 INY 

2020: C0B7 CO BB 'CPY #$BB 

2030: COBY DO ED BNE LOOPS 


2054: C@BB 
2034: COBB 


2035: 5SYNCHRONISATION 2 SCHREIBEN 

2036: COBB 

2056: COBB 

2040: COBB AI 02 LDA #$62 

2050: C®BD 85 AB STA $AB 

28680: COBF 20 13 Ci JSR SYNCH 5 SCHREIBT SYNCHRONISATION 
2078: » COC2 98 TYA 

20880: COC3 208 33 Ci JSR WBYTE ; 9 BYTE => ENDE VORSPANN 
20989: CeCö 84 D7 STY PSUMME 3; PRUEFSUMMENBYTE LOESCHEN 
2108: COCB A2 87 LDX #%07+COMPU 


2184: COCA 
2104: COCA 
2105: ;PROGRAMM SCHREIBEN 
21906: CeCA 
2106: COCA 


2110: COCA EA NOP 

2120: COCB Bi AC PRGLOOP LDA ($AC),Y ; PROGRAMM AUF BAND SCHREIBEN 
2130: CeCD 28 33 Cı JSR WBYTE 

2148: CODO A2 03 LDX #$03+COMPU 

2150: C0D2 E& AC INC s$AC 5; PROGRAMMZEIGER ERHOEHEN 
2160: C0D4 DO 94 BNE NOHI 

2170: COD6 E6& AD INC $AD 

2180: C0D8 CA DEX 

2190: C®D9 CA DEX 

2208: CODA AS AC NOHI LDA s$AC 

2218: CODE C5 AE CMP ENDVEC ; PROGRAMMENDE EREICHT 
2229: CODE AS AD LDA s$AD 

2230: COE® ES AF SBC ENDVEC+1 

2248: COE2 908 E7 BCC PRGLOOP ; NEIN => WEITER 

2250: CeE4 EA NOP 

2260: COES AS D7 LOOP4 LDA PSUMME ; PRUEFSUMME SCHREIBEN 
2278: COE7 28 33 Ci JSR WBYTE 

2280: C®EA A2 07 LDX #$07+COMPU 

22980: COEC 88 DEY 

23089: COED DB Fö& BNE LOOP4 

2318: CO®EF CB INY 

2320: C®FO 84 CO STY MOFLAG ; MOTOR AUSSCHALTEN VORBEREITEN 
2336: CeF2 58 cLI 


92 


PROFI-ASS 64 V2.0 


2340: 
2359: 
2360: 
2379: 
2372: 
2372: 
2375: 
2374: 
2374: 
2375: 
2380: 
2399: 
2499: 
2410: 
2420: 
24530: 
2440: 
2450: 
2460: 
2470: 
2480: 
2481: 
2481: 
2482: 
2484: 
2484: 
2499: 
2500: 
2510: 
2520: 
2530: 
2540: 
2559: 
25680: 
2579: 
2589: 
2581: 
2581: 
2582: 
2584: 
2584: 
2590: 
2609: 
2610: 
2620: 
2630: 
2640: 
2650: 
2660: 
2662: 
2662: 
2664: 
Zbb6b: 
2666: 
26790: 
2680: 
2690: 
2700: 
2710: 


CoF3 
coF4 
COF& 
coF9 
CorFc 
COFC 


CoFCc 
corc 
COFC 
COoFF 
cıo1 
c103 
C106 
c108 
C10B 
tıiec 
C1OE 
cior 
c111 
c112 
c113 
cC113 


c113 
cC113 
c113 
C11S5 
c117 
cı1A 
ci1c 
cC11D 
ciir 
cı21 
c123 
C125 
C127 
c127 


c127 
c127 
c127 
c128 
C12B 
c12D 
C12E 
c130 
c131 
c132 
C133 
c133 


c133 
c133 
c133 
c135 
c137 
c139 
C13B 


18 
A97 
8D 
ac 


20 


84 
AD 
29 


cA 
De 
88 
De 
78 


ao 
A? 
20 
A2 
88 
co 
De 
a2 
Cö 


98 
26 
A2 
88 
Do 


cA 
60 


85 
45 


AI 
85 


99 
AO 


2C 


co 
11 
EF 


FD 


FA 


0 
@2 
33 


09 
Fa 
es 
AB 


33 
07 


F7 


82 
FC 


AB 


De 


De 


ci 


cı 


SEITE 5 


ELC 
LDA 
STA 
JMP 


#500 
IROFLG 
ENDEN 


;MOTOR STARTEN 


MOTOR JSR 
LDY 
STY 
LDA 
AND 
STA 
ANLOOP DEX 
BNE 
DEY 
BNE 
sEI 
RTS 


STOP 
45008 
MOFLAG 
$D911 
#$EF 
$Do11 


ne 


ANLOOP 


ANLOOP 


BILDSCHIRM AUS 
ENTFAELLT BEI 

vc 28 

WARTET BIS MOTOR HOCH 
GELAUFEN IST 


3 SYNCHRONISATION GENERIEREN 


SYNCH LDY 
LOOPS LDA 
JSR 
LDX 
DEY 
CPY 
BNE 
LDX 
DEC 
BNE 


#500 

#$02 ; 
WBYTE 
#$07+COMPU 


#309 
LOOPS 
#$05+COMPU 
$AB 

LDOPS 


; COUNTDOWN SCHREIBEN 


COUNTS TYA 
JSR 
LDX 
DEY 
BNE 
DEX 
DEX 
RTS 


’ 


WBYTE 
#507+COMPU 


COUNTS 


;BYTE AUF BAND SCHREIBEN 


WBYTE STA 
EOR 
STA 
LDA 
STA 


$BD 
PSUMME 
PSUMME 
#308 
BITC 
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STARTBYTE 255-9 MAL SCHREIBEN 


; BYTEWERT 


COUNTDOWN 


PROFI-ASS 64 V2.0 


2720: C1iS3SD 86 BD 
2730: CIiSF AS 01 
2748: C141 29 F7 
27580: C143 208 55 Ci 
27608: C146 AZ 11 
27790: C148 EA 
2789: C149 09 08 
2798: C14B 20 55 C1 
2809: CI14E A2 ®E 
2810: C1S50 C6 AS 
2820: C152 DO E9 
28390: C154 60 
2849: C155 CA 
2850: C156 DO FD 
2860: C158 98 05 
2870: C15A AZ 0B 
2889: CI1SC CA 
2890: C1ı5D De FD 
29098: CISF 85 01 
2982: C161 68 
29083: C162 

2903: [162 

2984: C162 

2984: C162 

2905: 

29086: C162 

2986: C162 

2909: 

29189: C162 AS 2D 
2911: C164 38 
2912: C165 EI 02 
2912: C167 AB 
2912: C168 AS 2E 
2912: Ci6A EI 00 
2913: Ci16C A2 08 
2914: CIiöE FO 09 
2915: C170 

2915: C170 

2916: C170 

2916: C170 

2917: 

2918: C170 

2918: C170 

2919: C17® 

2919: C170 

2920: C170 A2 08 
2925: C172 2C 
29390: C173 A2 01 
2940: C175 A4 2B 
2959: C177 AS 2C 
2968: C179 86 @A 
2978: C17B 86 93 
2975: C17D A2 00 
29890: C17F 86 02 
2985: C181 84 C3 
29980: C183 85 C4 
3088: [185 20 Be C2 
3018: C188 20 8E Ci 
3828: C18B 4C 7A EI 


SEITE & 


SHIFT 


T1LOOP 


T2LOOP 


BIT® 


;MERGE 


;MERGE 
MERGEI 


5LADEN 


LOAD 


VERIFY 


MERGE2 


ASL $BD 

LDA PORT 

AND #$F7 

JSR T1LDOP 

LDX #$11+COMPU 

NOP 

ORA #$08 

JSR T1LDOP 

LDX #$0E+CODMPU 

DEC BITC 

BNE SHIFT 

RTS 

DEX 

BNE TILDOP 

BCC BITO ; WENN CARRY GESETZT, 
LDX #$0B ; DANN ZEITSCHLEIFE 
DEX 5; VERLAENGERN 

BNE T2LOOP 

STA PORT 

RTS 

LDA $2D 

SEC 

sBC #2 

TAY 

LDA $2E 

SBC #0 

LDX #8 

BEQ MERGE2 

LDX 3300 

.BYTE$2C 

LDX #801 

LDY $2B ; BASICSTARTVECTOREN IN 
LDA $2C 5; STARTSPEICHERSTELLEN 
STX $0eA ; LOAD FLAG (8=LOAD/1=VERIFY) 
STX 893 ; SETZEN 

LDX #0 

STX ABSFLG ; ABSOLUTFAG LOESCHEN 
STY STARTV 

STA STARTV+1 

JSR GETPARA 

JSR LOADR 3 LOAD UND VERIFY 
JMP  BEFEND 
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PROFI-ASS 64 V2.® 


3622: CIBSE 

3022: CI8E 

3024: 

3026: CIBE 

3026: CIBE 

3049: CI18E 20 OA 
3050: C191 AS AB 
3869: C193 C9 02 
30790: C195 FO 08 
3080: [197 C9 01 
3098: C199 DO F3 
3100: C19B AS BI 
3118: C19D FO 10 
3112: CI19F AI 82 
s113: CiA1 085 02 
S1i14: CIiAS 85 02 
3120: C1iAS AD SC 
3139: C1AB 85 C3 
3148: CIAA AD 3D 
31590: CiAD 85 C4 
3155: CIAF 20 02 
3156: C1B2 AS 02 
3157: C1B4 29 04 
3158: C1Bö6 DO 08 
3160: CI1BB 28 50 
3170: CI1BB 20 E4 
31886: CIiBE Fö FB 
3190: C1C® 20 2C 
3208: CICS A4 B7 
3218: CIiC5S FO 0B 
3228: C1C7 88 
3250: CIiC8 Bi BB 
3248: CICA D9 41 
32590: CiCD De BF 
3260: CICF 98 
3278: C1Do DO FS 
3280: C1D2 84 90 
3298: C1D4 20 D2 
3380: C1D7 AD SE 
3510: CIiDA 38 
3320: CiDB ED SC 
3359: CIDE 98 
3540: CIiDF 18 
33590: CI1E®ö 85 C3 
33568: CIE2 85 AE 
3379: CIE4 AD 3F 
3380: CIE7 65 C4 
3399: CI1EI 28 
3408: CIEA ED SD 
3410: CIED 85 AF 
34290: CIEF 20 iF 
34350: CIF2 AS BD 
34489: CiF4 45 D7 
3459: CIFö6 05 90 
3460: CIF8B FO 04 
3479: CIiFA AI FF 
3475: CIFC 85 99 
3488: CIFE AS 02 
3484: CZ208 DO 03 


c2 


83 


03 


c3 


F7 
FF 


AB 


FS 
03 


03 


03 


c2 


SEITE 7 


;LADEROUTINE 


LOADR JSR 
LDA 
CMP 
BEO 
CHP 
BNE 
LDA 
BEQ 
ABSOL LDA 
ORA 
STA 
LDA 
STA 
LDA 
STA 
RELLOD JSR 
LDA 
AND 
BNE 
JSR 
WAIT JSR 
BEQ 
NOWAIT JSR 
LDY 
BEQ 
TESTNA DEY 
LDA 
camp 
BNE 
TYA 
BNE 
NDNAME STY 
JSR 
LDA 
SEC 
SBC 
PHP 
CLC 
ADC 
STA 
LDA 
ADC 
PLP 
SBC 
STA 
JSR 
LDA 
EOR 
ORA 
BEQ 
LDA 
STA 
OK LDA 
BNE 


SSYNCH 
$sAB 
#$02 
ABSOL 
#501 
LOADR 
$B9 
RELLOD 
#2 
ABSFLG 
ABSFLG 
CASPUF 
STARTV 
CASPUF+1 
STARTV+1 
ADTEST 
ABSFLG 
#4 
NOWAIT 
FDUND 
GET 
WAIT 
STOP 
$B7 
NONAME 


un [u 


u. 


: 
($BB) ‚,Y 
CASPUF+S, Y 
LOADR 


TESTNA 
STATUS 5 
LOADING 
CASPUF+2 


CASPUF 


STARTV 
ENDVEC 
CASPUF+3 
STARTV+1 


CASPUF+1 
ENDVEC+1 
PLDAD 
$BD 
PSUMME 5; 
STATUS 
OK 

#$sFF 
STATUS 
ABSFLG 5; 
ALTADR 5 
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IST PRG ABS. GESPEICHERT 
=> ABSOLUT LADEN 
BYTE NICHT 1 => WEITERSUCHEN 


SEKUNDAERADRESSE = ® 


=> VERSCHIEBLICH LADEN 
ABSOLUTFLAG SETZEN 


STARTADRESSE AUS PUFFER 
IN STARTVECTOR 


TEST AUF ”WARTEN’ 


FOUND ’NAME” AUSGEBEN 
ENTFAELLT BEI 
Vc 28 


FILENAMENLAENGE 


FILENAMENTESTEN 


STATUS LOESCHEN 


; ENDADRESSE BERECHNEN 

AUS DIFFERENZ START- + ENDADR. 
AUS DEM HEADER 

PLUS BESTIMMTER 

STARTADRESSE 


PRUEFSUMME TESTEN 


FLAG TESTEN 
WENN GESETZT=> ALTE ENDVECTORE 


PROFI-ASS 64 V2.0 SEITE 8 


3486: C202 AC AI FS5 JMP STOEND ; ERHALTEN 

3488: C205 Ab 2D ALTADR LDX $2D 

3498: C207 A4 2E LDY $2E 

3492: [209 60 RTS 

3598: C206A 208 58 C2 SSYNCH JSR SCOUNT ; SYNCHRONISATION SUCHEN 
s5190: C2eD C9 09 CMP | #300 3 SYNCHR. VOR HEADER => 
3520: C28F Fö F9 BEQ SSYNCH 3; SYNCH NACH HEADER SUCHEN 
3539: C211 85 AB STA $AB 5 SEKUNDAERADRESSE + 1 
3549: [213 28 B6 C2 SPSTART JSR HODLBYT ; START DES PROGRAMMS 
3559: C216 91 B2 STA ($B2),Y ; SUCHEN 

3560: C218 CB INY 

3579: C219 CO Co CPY 3#$C0 

3580: C21B D® F& BNE SPSTART 

3598: C21D Fe 2D BEQ GEFUN ENDE VORSPANN, PRG LADEN 


... 


3608: C21F 28 58 C2 PLOAD JSR SCOUNT 
3618: C222 280 86 C2 LLOOP JSR HOLBYT 


PROGRAMM LADEN 


3628: C225 C4 95 CPY 893 

36350: C227 DO 02 BNE VERGL ; BEI VERIFY NUR VERGLEICHEN 
3648: C229 91 C3 STA (STARTV),Y 

3659: C22B Di C3 VERGL CMP  (STARTV),Y 

3660: C22D F8 082 BEQ GLEICH 

3670: C22F 86 90 STX STATUS 

36808: C231 45 D7 GLEICH EOR PSUMME ; PRUEFSUMME BERECHNEN 
36909: C233 85 D7 STA PSUMME 

3788: C235 E6 C3 INC STARTV ; ADRESSE ERHOEHEN 
3710: C237 DO 02 BNE NOTHI 

3720: C239 E6 CA INC STARTV+1 

37390: C23B AS C3 NOTHI LDA STARTV 

3748: C23D C5 AE CMP ENDVEC 3; ENDADRESSE ERREICHT 
3759: C2SF AS CA LDA STARTV+1 

3768: C241 ES AF SBC ENDVEC+ 

3770: C245 90 DD BCC 2 LLOOP 3 NEIN => WEITER 

3788: C245 20 86 C2 JSR HOLBYT 

37980: C248 20 FC CO JSR MOTOR 

38828: C24B CB INY 

3819: C24C 84 CO GEFUN STY MOFLAG 

3820: C24E 58 cLI 

3830: C24F 18 ELC 

3840: (250 AI 08 LDA #$00 

3859: [252 8D AO 02 STA IROFLG 

3860: C255 4C 953 FC JMP ENDEN 

3879: C258 20 17 F8 SCOUNT JSR PTASTE ; COUNTDOWN SUCHEN 
3880: C25B 20 FC Ce JSR MOTOR 

3899: C2SE 84 D7 STY PSUMME 

3988: C268 A9 07 LDA #307 ; ($27) WERT FUER TIMER LO 
39190: C262 8D 06 DD STA CIA1+6 ; (PORT+8) IN TIMER LO 
39208: C265 A2 ei LDX #301 3 WERT FUER TIMER HI 
3930: C267 208 99 C2 SSTART JSR HOLBIT 3; START SUCHEN 

3948: C26A 26 BD ROL $BD 

3950: C26C AS BD LDA $BD 

3968: LC26E C9 82 CMP  #$02 3 START GEFUNDEN 

3978: C270 DO FS BNE SSTART 

3988: C272 AB 09 LDY #$09 3 => COUNTDOWN SUCHEN 
3998: C274 20 86 C2 ENDE2 JSR HOLBYT 5; ENDE DER ”’2” — BYTES 
4008: L277 C9 92 CMP #302 ; SUCHEN 

4010: C279 FO FF BED ENDE2 

4020: C27B C4 BD COUNTL CPY BD 3; TESTET DEN COUNTDOWN 
40530: C27D DO ES BNE SSTART 

4940: LC27F 20 864 C2 JSR HOLBYT 
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PROFI-ASS 64 V2.0 


4950: 
4060: 
4079: 
4072: 
4072: 
4975: 
4076: 
4976: 
4080: 
4099: 
4190: 
4110: 
4120: 
4130: 
4140: 
4150: 
4160: 
4170: 
4180: 
4182: 
4182: 
4184: 
4185: 
4185: 
4190: 
4200: 
4219: 
4220: 
4225: 
4230: 
4240: 
4259: 
4260: 
4270: 
4280: 
4299: 
4390: 
4310: 
4310: 
4320: 
4330: 
4330: 
4340: 
4350: 
4360: 
4379: 
4380: 
4390: 
4409: 
4410: 
4420: 
4430: 
4432: 
4432: 
4435: 
4436: 
4436: 
4450: 
4460: 


c282 
c283 
C285 
C286 
C286 


C286& 
C28& 
C286 
C288 
C28A 
C28D 
c28F 
C2908 
c291 
c292 
c294 
c296 
c298 
c299 
c299 


c2997 
c299 
c299 
C29B 
C29E 
C2A® 


C2ZAS 
C2A& 
c2A7 
C2A97 
C2ZAC 
C2AD 
CZAE 
C2AF 
C2B® 
C2BO 


C2B® 
C2BO 


C2Bo 
C2B® 


C2B® 
C2Bo® 


88 
DO 
68 


r9 
85 


26 
EA 
EA 
EA 
[0?-7 
D® 


68 


a9 
zC 
Fo 
AD 


SE 
48 
A? 
8D 
68 
aA 
aa 
68 


Fö 


10 
oD 
FB 
oD 


07 


19 
or 


C2BO A9 090 
CzZzB2 2@ BD FF 


c2 


DE 


DD 


DD 


DD 


SEITE 9 
DEY 


BNE COUNTL 
RTS 


; BYTE VON BAND HOLEN 


HOLBYT LDA #308 ; 8 BIT 
STA BITC 
SHIFT7 JSR HOLBIT 
ROL $BD ; SCHIBT CARRY IN EINGABEPUFFER 
NOP 
NOP 
NOP 
DEC BITC 
BNE SHIFT7 
LDA $BD 
RTS 


; BIT VON BAND HOLEN FUER C-64 


HOLBIT LDA #$10 
WAITDA BIT CIA2+13 ;WARTET AUF SIGNAL AN ’FLAG’ 
BEQ WAITDA 
LDA CIA1+13 ; ICR LADEN. HAT TB ® ERREICHT 
;s => BIT 1 IST GEZT 


STX CIA1+7 WERT IN TB HI 


; 
PHA ; ICR RETTEN 
LDA #$19 ; TB STARTEN, EINMALIGES ZAEHLEN 
STA CIA1+H15 
PLA ; ICR HOLEN 
LSR A 3 BIT 1 INS CARRY SCHIEBEN 
LSR A 
RTS 


; ”HOLBIT’ FUER VC2® 


;HOLBIT LDA #$02 

;WAITDA BIT PORT+13 5 IFR BIT i TESTEN 
BEQ WAITDA 

LDA PORT+13 

STX FPORT+9 5 TIMER HI SETZEN 
BIT PORT+1 

ASL 

ASL 

ASL 

RTS 


une 


;PARAMETER HOLEN 


GETPARA LDA #0 
JSR SETNAM 
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PROFI-ASS 64 V2.0 


4470: 
4480: 
4499: 
4510: 
4520: 
4549: 
4550: 
45606: 
4570: 
4589: 
46090: 
4610: 
4620: 
4622: 
4624: 
4630: 
4632: 
46534: 
4650: 
4660: 
4679: 
4672: 
4674: 
4680: 
4685: 
4690: 
4695: 
4700: 
4710: 
4720: 
4730: 
47490: 
4750: 
4762: 
4770: 
4780: 
4799: 
48099: 
4810: 
4820: 
4830: 
4840: 
4940: 
4940: 
4945: 
4945: 
4950: 
4970: 
4970: 
5090: 
5010: 
5920: 
5030: 
5040: 
5050: 
5960: 
5070: 
5080: 
5085: 


C2BS 
C2B7 
C2B9 
C2BC 
Cc2BF 
c2c2 
c2C5 
c2cC8 
c2C9 
C2CA 
C2CD 
C2D® 
c2D3 
c2DS 
C2D7 
Cc2D9 
C2DB 
c2DD 
C2DF 
c2E2 
C2ES 
C2ZE7 
C2E9 
C2EB 
C2ED 
C2EF 
C2F1 
C2FS 
C2F4 
C2F7 
C2ZFA 
C2FD 
C2FF 
c301 
C3502 
C394 
C306 
C308 
c30A 
C30C 
CIE 
c310 
c311 
c311 
c311 
c311 


c311 
c311 
c311 
c314 
C31& 
c3S18 
C31B 
C31D 
C3ıF 
c321 
C323 
C325 


A2 
ao 
208 
20 
zo 
26 
20 
8A 
AB 
20 
20 
20 
86 
86 
84 
84 
A2 
86 
20 
20 
86 
85 
84 
84 
AS 
07 
85 
60 
20 
29 
20 
A& 
Aa 
60 
AS 
29 
Fo 
AS 
85 
AS 
85 
60 


e1 
08 
BA 
06 
57 
06 
02 


BA 
06 
Fa 
AC 
A7 
AB 
AD 
01 
02 
06 


AE 
AI 
AA 
AF 
02 


e2 


26 


AB 
Bo 
ei 
BF 
04 
2C 
AB 
Ad 


FF 
E2 
E2 
E2 
E2 


FF 
E2 
c2 


E2 


E2 
AD 
B7 


BS 


SEITE 10 


HOLWERT 


ADTEST 


NORM 


LDX 
LDY 
JSR 
JSR 
JSR 
JSR 
JSR 
TXA 
TAY 
JSR 
JSR 
JSR 
STX 
STX 
STY 
STY 
LDX 
STX 
JSR 
JSR 
STX 
STX 
STY 
STY 
LDA 
ORA 
STA 
RTS 
JSR 
JSR 
JSR 
LDX 
LDY 
RTS 
LDA 
AND 
BEO 
LDA 
STA 
LDA 
STA 
RTS 


5; DATASAVE 


DASAVI 


ULDOF 


JSR 
LDX 
STX 
JSR 
LDA 
STA 
LDX 
LDA 
STA 
STA 
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#1 5 
#00 3 
SETLFS 
WZEICH ; 
HFNAM 
WZEICH 
HOLPAR 


SETLFS 
WZEICH 
HOLWERT 
$AC 

$A7 

$AB 

SAD 

#1 
ABSFLG 
WZEICH 
HOLWERT 
SAE 

$A97 

$AA 

sAr 
ABSFLG 
#2 
ABSFLG 


u 


CHRIN 5 
FRMNUM 3; 
FACINT 5 
$14 
$15 


ABSFLG 5 
#1 

NORM 3 
$AC 
STARTV 
$AD 
STARTV+1 


GABCOL 
#5 

$AB 
GETPARA 
#1 3 
sB9 

»4 

$2C,X 35 
SAB,X 5 
SAb,X 


DEFAULT FUER GA 
DEFAULT FUER SA 


WEITERE ZEICHEN 


FLAG FUER AN BESTIMMTE 
ADRESSE LADEN UND RETTEN 


NAECHSTEN WERT HOLEN 
AUSDRUCK AUSWERTEN 
IN 2BYTE WERT UMRECHNEN 


FLAG LADEN 


UNGLEICH => NORMAL LADEN 


SA=1 


VARIABLEN START- UND 
ENDADRESSEN UMSPEICHERN 


FROFI-ASS 64 V2.0 


50898: US3S27 CA 
5100: C328 DO F7 
S11e: CS2A 20 7F 
S112: CS2D A2 80 
5114: CS2F 86 B7 
S115: C331 A2 85 
5117: C3533 86 AB 
5119: C335 CA 
5130: C3356 BS ZE 
51480: C338 95 AB 
5145: CI335A 95 Ad 
5159: C3S5C CA 
5160: CSSD DO F7 
51708: C33SF 20 7F 
5175: C342 A2 05 
5177: C344 86 AB 
5198: (346 AS 33 
52090: CI48 Ab 34 
5210: CS4A 85 AC 
5215: CS4C 85 A7 
5220: CS4E 86 AD 
5225: (350 86 A8 
53230: C3S52 AS 37 
5240: C354 As 38 
5250: C356 85 AE 
5255: C358 85 AY 
52680: C3S5A 86 AF 
5265: CISSC 86 AA 
5270: CSSE AC 7F 
53090: C361 

5300: CI361 

53505: CI61 

5305: [361 

5310: 

5320: CS61 

5320: C361 

5419: C361 20 Bö 
54280: C364 A9 01 
54390: (366 85 82 
5440: CS68 AS 2D 
5459: CS6A Aö& 2ZE 
5460: CSSC 85 AC 
5470: CIS6E 86 AD 
5480: C370 20 BE 
3482: C373 AI 05 
5486: (375 85 02 
5498: C377 A9 06 
5508: C379 85 B7 
SS5S10: C37B Aö& AE 
5520: C37D A4 AF 
5530: CS7F 86 ZF 
5540: C381 84 30 
5550: [383 86 AC 
5560: C385 84 AD 
5570: C387 28 8E 
5580: CI3BA Ab AE 
5590: C38C A4 AF 
5600: LCIBE 84 31 
S610: C3906 84 32 


co 


co 


co 


c2 


ci 


ci 


SEITE 11 


DEX 
BNE 
JSR 
LDX 
STX 
LDX 
STX 
DEX 
LDA 
STA 
STA 
DEX 
BNE 
JSR 
LDX 
STX 
LDA 
LDX 
STA 
STA 
STX 
STX 
LDA 
LDX 
STA 
STA 
STX 
STX 
JMP 


U2LOOP 


; DATALDOAD 


JSR 
LDA 
STA 
LDA 
LDX 
STA 
STX 
JSR 
LDA 
STA 
LDA 
STA 
LDX 
LDY 
STX 
STY 
STX 
STY 
JSR 
LDX 
LDY 
STX 
STY 


DATLOD 


ULOOP 

ABSOLUT 3; ABSPEICHERN 

#0 

$B7 ;5 KEIN FILENAME 

#5 

$AB 

S2E,X 5 ARRAY START- UND 

$AB,X ; ENDADRESSEN UMSPEICHERN 
8A6,X ; ENDADRESSEN UMSPEICHERN 
U2LOOP 

ABSOLUT 3; ABSPEICHERN 

#5 

$AB 

553 ; STRING START- UND 

+34 ’ 

SAC 

$&A7 

$AD 

SAB 

337 3 ENDADRESSEN UMSPEICHERN 
358 3 

$AE 

AI 

SAF 

$AA 

ABSOLUT 3; ABSPEICHERN 

GETPARA 

#1 5 AN BESTIMMTE ADRESSE LADEN 
ABSFLG 

$2D 5 VARIABLENSTARTADRESSE ALS 
$2E ; STARTADRESSE 

SAC ; UMSPEICHERN 

$AD 

LOADR ; LADEN 

#4+1 5 NICHT WARTEN, AN BESTIMMTE 
ABSFLG ; ADRESSE LADEN 

#90 

$B7 ;3 KEIN FILENAMEN 

$AE ; VARIBLENENDE 

SAF 

$2F ; IN VEKTOR 

s30 

SACc 5 UND LADESTARTVEKTOR 

SAD 

LOADR ; LADEN 

$AE ; ARRAYENDE 

$SAF 

51 5; IN VEKTOR 

32 
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PROFI-ASS 64 V2.0 


5620: 
5639: 
5640: 
5642: 
5642: 
5644: 
5644: 
5650: 
5669: 
5679: 
5680: 
5699: 
5709: 
5710: 
5720: 
5730: 
5739: 
5740: 


C392 
C394 
C396 
Cc3997 
Cc39C 
C39E 
C3Al 
C3A3 
CIAS 
C3AB 
C3AA 
E3SAC 
C3AF 
Cc35B1 
C3B3 
C3BS 
C3B7 
C3B9 


üC080-C3BA 


04 
02 
8E 
S3Cc 
33 
3D 
34 
B7 
BF 
05 
1D 
37 
17 
16 
v9 
3A 
10 


ci 


03 


FF 


na 


SEITE 12 


NOFEHL 


LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
AND 
BEQ 
LDX 
JMP 
LDX 
STX 
LDA 
STA 
STA 
RTS 
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#4 ; VON ADRESSE VOM HEADER 
ABSFLG 5; LADEN 

LOADR ; LADEN 

CASPUF 

$33 

CASPUF+1 

34 

HOLSTA 5; STATUS HOLEN 

sBF ; EOF-BIT LOESCHEN 
NOFEHL 5; KEIN FEHLER 

#$1D ; OFFSET FUER ’LOAD ERROR’ 
FEHLAUS ; FEHLER AUSGEBEN 

#419 ; STRING-DESCRIPTOR 

$16 ; INDEX RUECKSETZEN 

#00 

$5A 

10 ;CONT SPERREN 


KRRARKRRKHNKRRRRKRKHHNTR TRINKT TH HH HH TH HN HH HR HR TH HH HH N HR HH RT HH HH TR HH FH 
190 REM BASICLOADER FT28 
KEKRKRRKKHKHKRKKRKRTHHTH TH HN HR NN NH HH HERR HH HH HH N NER KHK HH TH HN N HEN HR HR 

118 E=29611:A=28672:PS=® 

120 FOR I=A TO E:READ X:POKE I,X:PS=PS+X:NEXT 

138 IF PS<>114760 THEN PRINT"FEHLER IN DATAS"=END 

148 POKE 55,9:POKE 56,112 

150 SYS A:NEW 

168 DATA 169,11,141,8,3,169,112,141,9,3,96,32,115,@,240, 
4,201,95, 240,3, 76,231 

178 DATA 199,32,115,0,32,32,112,76,174,199,162,9,221,84, 
112,240,8,232,228,4 

180 DATA 208, 246,76,8,207,138,10,170,189,90,112,72,189,8 
9,112,72,76,115,8,201 

198 DATA 83,240,7,201,76,240,9,76,8,207,32,115,0,76,3,11 
5,32,115,0,76,83,115 

208 DATA 83,76,86,77,68,98,112, 105, 113,108, 113,91,113,68, 
112,162,5,134,171,162 

218 DATA 0,134,2,32,162,114,165,2,41,2,208,11,162,4,181, 
42,149,171,149, 166, 202 

220 DATA 208,247,32,183,248,32,40,247,32,252,112,32,11,1 
13,165, 185, 24,105,1 

230 DATA 202,32,43,113,162,10,185,167,0,32,43,113,162,8, 
200, 192,5, 234,208, 242 

240 DATA 160,0,162,6,177,187,196,183,144,3,169,32, 202,32, 
43,113,162,5, 208,192 

250 DATA 187,208, 237,169,2,133,171,32,11,113,152,32,43,1 
13,132, 215,162, 9,234 

260 DATA 177,172,32,43,113,162,5,230, 172, 208,4,230, 173,2 
02,202, 165,172,197,174 

278 DATA 165,173,229,175,144,231,234,165,215,32,43, 113,1 
62,9,136, 208, 246, 208 

280 DATA 132,192,88,24,169,0,141,160,2,76,207,252,32,44, 
200,160, 8,132, 192,282 

298 DATA 208,253, 136,208, 250, 120, 96,160,0,169,2,32,43,11 
3,162, 9,136, 192,9,208 

390 DATA 244,162,7,198, 171,208, 238, 152,32,43,113,162,9,1 
36, 208, 247,202, 202,96 


101 


310 


340 


359 


360 


370 


388 


390 


400 


410 


420 


430 


440 


4590 


4608 


4798 


480 


490 


500 


DATA 133,189,69,215, 133,215, 169,8, 133, 163,6, 189,173, 
32,145,41,247,32,78 

DATA 113,162,19,234,9,8,32,78,113,162,16,198,163,268, 
232,96, 202, 208, 253 

DATA 144,5,162, 11,202, 208, 253, 141,32, 145,96, 165, 45,56 
‚233,2,168, 165,46, 233 

DATA 0,162,0,240,9,162,0,44,162,1,164,43,165,44,134, 
18,134,147,162,0,134 

DATA 2,132,195, 133, 196,32,162,114,32,136, 113, 76,119, 
225,32,255,113,165, 171 

DATA 201,2,240,8,201,1,208,243,165,185,240,16,169,2, 
5,2,133,2,173,60,3,133 

DATA 195,173,61,3,133,196,32,244,114,165,2,41,4,268, 
3,32,211,247,32,44,200 

DATA 164,183,240,11,136,177,187,217,65,3, 208,196, 152, 
208, 245, 132,144,32 

DATA 166, 246, 173,62,3,56,237,60,3,8,24, 101,195, 133,1 
74,173,63,3,101,196 

DATA 40,237,61,3,133,175,32,20,114,165,189,69,215,5, 
144, 240,4,169, 255, 133 

DATA 144,165,2,208,3,76,65, 246, 166,45,164,46,96,32,7 
7,114, 201,0,240,249 

DATA 133,171,32,123,114,145,178,200,192,192,208,246, 
240,45,32,77,114,32 

DATA 123,114,196, 147,208, 2,145, 195, 209,195, 240,2,134, 
144,69, 215,133, 215 

DATA 230, 195,208, 2,230, 196,165, 195, 197,174,165,196,2 
29,175,144,221,32,123 

DATA 114,32,252,112,200,132,192,88,24,169,0,141,166, 
2,76,207,252,32,148 

DATA 248,32,252,112,132,215,169,39,141,40,145,162,1, 
32,142,114,38,189, 165 

DATA 189,291,2,208,245,160,9,32,123,114,201,2,249,24 
9,196, 189, 208, 232,32 

DATA 123,114,136, 208, 246,96,169,8,133,163,32,142,114, 
38,189, 234, 234,234 

DATA 198,163, 208,244, 165,189,96,169,2,44,45,145,240, 
251,173,45, 145, 142,41 

DATA 145,44,33,145,10,10,10,96,169,0,32,189, 255,162, 
1,160, 0, 32,186, 255,32 
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510 


550 


368 


570 


580 


590 


600 


619 


620 


630 


640 


DATA 3,226,32,84,226,32,3,226,32,253,225,138, 168,32, 
186, 255,32, 
DATA 238,11 


s 
3,226,3 
4,134,172,134,167,132,168, 132,173,162,1,1 

34,2,32,3,226,32,2 

DATA 114,134, 174,134,169,132,170,132,175,165,2,9,2,1 

33,2,96,32,11,226,32 

DATA 138,205,32,247,215,166,29,164,21,96,165,2,41,1, 

240,8,165,172,133,195 

DATA 165,173,133, 196, 96,32,38,213,162,5,134,171,32,1 

62,114,169,1,133, 185 

DATA 162,4,181,44,149,171,149,166, 202,208, 247, 32,127, 
112,162,0,134,183,162 

DATA 5,134,171,202,181,46,149, 171,149, 166, 202, 208, 247 
‚„32,127,112,162,5,134 

DATA 171,165,51,166,52,133,172,133,167,134,173,134,1 

68, 165,55, 166,56, 133 

DATA 174,133,169,134,175,134,170,76,127,112,32,162,1 

14,169,1,133,2, 165,45 

DATA 166,46, 133,172,134,173,32,136,113,169,5,133,2,1 

69,0,133,183, 166,174 

DATA 164,175,134,47,132,48, 134, 172,132,173,32, 136,11 

3,166, 174,164,175,134 

DATA 49,132,50,169,4,133,2,32,136, 113,173, 60,3,133,5 

1,173,61,3,133,52,32 

DATA 183,255,37,191,249,5,162,29,76,55,196, 162,25, 13 

4,22,169,0,133,58, 133 

DATA 16,96 
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KRERRRKRRRRRKHRRRTKEHHNTN HH NT HT NN N N HR NEN RN HH HR HEN HH HH HH RR 
1880 REM LOADER FT64 
KRRRHHRRKRRRRKHRHKRRRE RR NH HN HH HH RR HR HR HH HK IHR HN RR RR 
1818 E=56195: A=49152:PS=0 
1028 FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 
190364 IF PS<>12@5094 THEN FRINT"FEHLER IN DATAS":END 
1646 SYS A 
18000 DATA 169,11,141,8,5, 
4,201,95,240,3,76,23 
1080816 DATA 167,32,115,0,32,32,192,76,174,167,162,0,221,84, 
192,240,8,232,228,4 
18020 DATA 208, 246,76,8,175,138,19,17@,189,90,192,72,189,8 
9,192,72,76,115,0, 201 
10930 DATA 83,240,7,201,76,240,9,76,8,175,32,115,0,76,17,1 
95,32, 115,0, 76,97,195 
1080846 DATA 83,76,86,77,68,98,192,111,193,114,193,97, 193,60, 
192,162,5,134,171,162 
10959 DATA 0,134,2,32,176,194,165,2,41,2,208,11,162,4,181, 
42,149,171,149, 166, 202 
10060 DATA 208,247,32,56, 248, 32,143, 246,32, 252,192,32,19,1 
93,165, 185,24, 105,1 
18079 DATA 262,32,51,193,162,8,185,167,0,32,51,193,162,6,2 
08,192,5,234, 208, 242 
18080 DATA 166,0,162,4,177,187,196,183,144,3,169,32,202,32, 
51,193,162,5, 200,192 
10896 DATA 187,208, 237,169,2,133,171,32,19,193,152,32,51,1 
93,132,215,162,7,234 
101088 DATA 177,172,32,51,193,162,3,230, 172,208, 4,230, 173,2 
82, 202,165, 172,197,174 
10118 DATA 165,173,229,175,144,231,234, 165, 215,32,51,193,1 
62,7,136, 208, 246,208 
19128 DATA 132,192,88,24,169,0,141,160,2,76,147,252,32,44, 
168, 160, 0,132, 192,173 
18130 DATA 17,208,41,239,141,17,208, 202,208, 253, 136, 208, 25 
0,120,96,160,0,169,2 
10148 DATA 32,51,193,162,7,136,192,9,208,244,162,5,198, 171, 
208,238, 152,32,51,193 
18158 DATA 162,7,136,208,247,202,202,96, 133, 189,69, 215,133 


169,192,141,9,3,96,32,115,0,246, 
1 


104 


10168 


10170 


10180 


18190 


19299 


10210 


10220 


19230 


10240 


18250 


19260 


10270 


102808 


10290 


103008 


10318 


10320 


103530 


10340 


19359 


‚215,169,8,133,163,6 

DATA 189,165,1,41,247,32,85,193,162,17,234,9,8,32,85, 
193,162,14,198, 163 

DATA 208,233, 96,202,208,253,144,5,162, 11,202, 208,253 

‚„133,1,96,165,45,56 

DATA 233,2,168,165,46,233,0,162,0,240,9,162,0,44,162, 
1,164,43,165, 44,134 

DATA 10,134,147,162,0,134,2,132,195,133,196,32,176,1 

94,32,142,193,76,122 

DATA 225,32,10,194,165,171,201,2,240,8,201,1,208,243, 
165, 185,249, 16, 169 

DATA 2,5,2,133,2,173,60,3,133, 195, 173,61,3, 133, 196,32 
„2,195,165,2,41,4,208 

DATA 8,32,86, 247,32, 228, 255,240, 251,32,44,168, 164,183 
‚„240,11,136,177,187 

DATA 217,65,3,208,191,152,208, 245,132, 144,32, 219,245 

‚173,62,3,56, 237,68 

DATA 3,8,24,101,195,133,174,173,63,3,101,196, 40,237, 

61,3,133,175,32,31,194 

DATA 165,189,69,215,5,144,240,4,169,255,133,144,165, 

2,208,3,76,169, 245,166 

DATA 45,164,46,96,32,88,194,201,0,240, 249,133, 171,32, 
134,194,145,178, 288 

DATA 192,192, 208, 246, 240,45,32,88,194,32,134, 194,196 

„147,208,2,145, 195,209 

DATA 195,249,2,134, 144,69, 215,133, 215,230, 195, 208,2, 

230, 196,165, 195,197 

DATA 174,165, 196,229, 175,144, 221,32,134,194,32,252,1 

92,200, 132,192,88,24 

DATA 169,0,141,160,2,76,147,252,32,23,248,32, 252,192, 
132, 215,169,7,141,6 

DATA 221,162,1,32,153,194,38, 189,165, 189,201,2,208,2 

45,160,9,32,134,194 

DATA 201,2,240,249, 196, 189, 208, 232,32, 134,194, 136, 20 

8,246, 96,169,8, 133,163 

DATA 32,153,194,38, 189,234, 234, 234,198, 163, 208, 244,1 

65,189, 96, 169,16,44 

DATA 13,220, 240,251,173,13,221,142,7,221,72,169,25,1 

41,15,221,104,74,74 

DATA 96,169,0,32,189,255,162,1,160,0,32,186, 255,32, 6, 
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10368 


10370 


10389 


19398 


194908 


19410 


10420 


10450 


10440 


19450 


104608 


19470 


10480 


226,32,87,226,32,6 

DATA 226,32,0,226,138,168,32,1B6,255,32,6,226,32,244 

‚„194,134,172,134,167 

DATA 132,168,132,173,162,1,134,2,32,6,226,32,244,194, 
134,174, 134,169, 132 

DATA 170,132,175,165,2,9,2,133,2,96,32,14,226,32, 138 

‚„173,32,247,183,166 

DATA 20,164,21,96,165,2,41,1,240,8,165,172,133,195,1 

65,173,133, 196, 96,32 

DATA 38,181,162,5,134,171,32,176,194,169,1,133,185,1 

62,4,181,44,149,171 

DATA 149,166, 202,208, 247,32,127,192,162,0,134,183,16 

2,5,134,171,202,181 

DATA 46,149,171,149,166, 202,208, 247,32,127,192,162,5, 
134, 171,165,51,166 

DATA 52,133,172,133,167,134,173,134, 168, 165,55, 166,56 
‚133,174,133,169,134 

DATA 175,134,170,76,127,192,32,176,194,169,1,133,2,1 

65, 45,166, 46, 133,172 

DATA 134,173,32,142,193,169,5,133,2,169,0,133, 183,16 

6,174,164,175,134,47 

DATA 132,48,134,172,132,173,32,142,193,166,174,164,1 

75,134,49, 132,50, 169 

DATA 4,133,2,32,142,193,173,60,3,133,51,173,61,3,133, 
52,32,183,255,37,191 

DATA 240,5,162,29,76,55,164,162,25,134,22,169,0,133, 

58,133, 16,96 
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12.1 PROGRAMMBESCHREIBUNG 


Für interessierte Leser, die zumindest einige 
Grundkenntnisse in ASSEMBLER-Programmierung haben, möchte 
ich das FastTape-Programm näher beschreiben. Vielleicht 
fallen Ihnen noch einige Verbesserungen ein, die Sie in das 
Programm einbringen wollen. Als Zusatzlektüre empfehle ich 
Ihnen die entsprechenden Kapitel über die Ein- und 
Ausgabebausteine in den DATA-Becker Büchern 64 INTERN und 
vc 20 INTERN. 


PRINZIPIELLE ARBEITSWEISE 


Einzelne Bits werden durch Rechteckpulse auf Band 
geschrieben. Das Byte 20, Binär %00010100 sieht 


folgendermaßen aus: 





In folgendem Speicherformat wird ein Programm gespeichert: 
1. Synchronisation 1 


5 mal (246 mal Byte 2). Dadurch wird beim Ladevorgang 


auf den Start eines Bytes synchronisiert. 


Countdown Bytes 9, 8, 7, 6, 5, 4, 3, 2, 1. Hierdurch 
wird das Ende der Synchronisation gekennzeichnet. 
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2. Vorspann, bestehend aus 


Sekundäradresse-1 
Start- und Endadresse 
Filenamen 


Der Vorspann wird immer auf 192 Zeichen mit "SPACE" 
aufgefüllt und beim Laden im Cassetten-Puffer 
abgelegt. Somit ist es auch hier möglich, mit dem 
Filenamen Maschinenprogramme zu übergeben, wie es im 


Kapitel 7.3 beschrieben wurde. 


3. Synchronisation 2 


Wie Synchronisation 1, aber nur 2 mal. 


4. Null-Byte Kennzeichnung dafür, daß jetzt die Daten 
folgen. 


5. Daten 


6. Prüfsumme, 255 mal 


Im Unterprogramm INIT wird der Vektor zur 
Interpreterschleife auf das FastTape-Programm umgelenkt. 
Dadurch wird erreicht, daß jedesmal, wenn ein Befehl 
ausgewertet werden soll, FastTape angesprungen wird. Im 
Unterprogramm START wird nun getestet, ob das erste Zeichen 
der FastTape-Code (Pfeil nach links) ist. Ist das Zeichen 
kein FastTape-Code, wird in die Interpreterschleife 


zurückgesprungen. 


Wird der FastTape-Code gefunden, wird über das Unterprogramm 
SUCH durch Vergleich mit der Buchstaben- tabelle TAB die 
entsprechende Startadresse bestimmt. Wird der Buchstabe 
nicht gefunden, wird ein"?SYNTAX ERROR" ausgegeben. 


Sonst wird die entsprechende Befehlsstartadresse auf den 
STACK geschoben. Dadurch verzweigt das Programm nach dem RTS 
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der CHRGET-Routine zu der entsprechenden Adresse plus eins 
und kehrt nach Ausführung zu der Adresse $CO1D($701D) 


zurück. 


Bevor ich die einzelnen Hauptprogramme erkläre, möchte ich 


einige häufig benutzte Unterprogramme beschreiben. 


e auf Ba chreiben : WBY c133 


Die Übergabe des zu schreibenden Bytes erfolgt über den 
Akkumulator. Dieses Byte wird in die Speicherstelle $BD 
geschrieben und dann mit der EXOR-Prüfsumme durch 
EXKLUSIV ODER verknüpft. 


In $c139 wird 8 (ein Byte = acht Bit) in den Bitcounter 
geschrieben. Mit SHIFT beginnt die Schleife, die acht Bit 
auf Band schreibt. Zuerst wird das höchstwertige Bit in das 
Carry-Flag geschoben. Das PORT-Byte wird nun in den Akku 
geladen und das Schreibbyte (Bit drei) gelöscht. 


Entsprechend der Zeitschleife T1LOOP (bei gesetzten 
Carry-Flag zusätzlich T2LOOP) ist die Schreibleitung nun 
"high". Am Ende der Zeitschleife wird der Akkuinhalt in den 
Port übertragen mit der Folge, daß die Schreibleitung "low" 
wird. 


In $Cc149 wird dann im Akku wieder Bit drei gesetzt und 
erneut in die Zeitschleife T1iLOOP verzweigt. Am Ende wird 
dann durch die Übertragung des Akkuinhalts in den Port die 
Schreibleitung wieder "high". 


In %$c150 wird der Bitcounter dekrementiert und getestet. 
Wurden alle acht Bits übertragen, wird zurückgesprungen. 
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Byte vom Band lesen : HOLBYT $C286 


Zuerst wird ab $c286 der Bitcounter auf 8 gesetzt. Dann 
werden acht Bit nacheinander über HOLBIT eingeladen und über 
das Carry-Flag in $BD geschoben. Am Ende ($C269) wird über 
den Akku das eingelesene Byte übergeben. 


Bit vom Band lesen : OLBIT $C299 


Die Schleife %$C299 - $C29E wartet bis Bit vier im ICR2 des 
CIA2 "high" wird. Dieses Bit wird gesetzt, wenn an der READ 
Leitung (D/4) des Cassettenports ein Signal anliegt. Dann 
wird das ICR1 geladen und das X-Register als Highbyte in den 
zähler B vom CIA2 geschrieben und ICRi auf den STACK 
gerettet. 


In $C2A9 wird Bit 1,3 und 4 im Kontrollregister B gesetzt, 
was zur Folge hat, daß Zähler B einmal abwärts zählt und 
gestartet wird. Danach wird der gerettete ICRi Inhalt 
zurückgeholt und durch zweimaliges Rechtsschiften Bit eins 
ins Carry-Flag geschoben. Dieses Bit wird dann "high", wenn 
der Zähler bis auf O gezählt hat, bevor er neu gestartet 


wurde. 


Auf diese Weise wird festgestellt, ob es lange dauerte, bis 
die Leseleitung wieder high war, was einem gesetzten Bit 


entspricht. 


Parameter holen : GETPAR C2BO 


Diese Routine holt die mit den Befehlen übergebenen 
Parameter und schreibt sie in die entsprechenden 
Speicherstellen. Weiterhin wird entsprechend der Parameter 
das Flag ABSFLG gesetzt. 


Dieses Flag ist ein Binärflag und steuert folgende 


Funktionen: 
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0 1 
1 2 
2 4 


Synchronisation schreiben :SYNCH $C113 








1 = File an eine beim 
L-Befehl übermit- 











telte Adresse laden 


1 = File absolut laden 






oder speichern 






1 = Beim C64 nicht war- 






ten, sondern sofort 






laden 





Dieses Unterprogramm schreibt sooft, wie in $AB angegeben 
ist, 246 mal das Byte 2 auf Band. Zuletzt wird ein Countdown 
aus den Bytes 9, 8, 7, 6, 5, 58, 3, 2, 1 auf Band 


geschrieben. 


Synchronisation suchen ; SCOUNT $C258 


Zuerst wird die Recordertaste abgefragt. Dann wird der Motor 
gestartet, Bildschirm abgeschaltet (nur C-64) und das 
Prüfsummenbyte auf O gesetzt. Ab $C260 wird 7 in das Lowbyte 
geschrieben und das X-Register mit für das Highbyte des 


Timers mit 1 geladen 


Ab SSTART werden dann solange Bits eingelesen, bis der 
Bytewert der eingelesenen Bits genau 2 wird. Dann werden 
alle folgenden Zweier-Bytes der Synchronisation eingelesen 


und festgestellt, ob danach ein Countdown ab 9 folgt. 


Wird ein fehlerfreier Countdown gefunden, wird zum 


Hauptprogramm zurückgesprungen. 
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esen : SYNCH $C2O 


Dieses Unterprogramm sucht mit SCOUNT die nächste 
Synchronisation. Mit Hilfe des letzten von SCOUNT 
eingelesenen Bytes stellt es fest, ob es sich um 
Synchronisation 1 oder 2 handelt. Ist die gefundene 
Synchronisation nicht Synchronisation 1, wird weitergesucht. 
Sonst wird das letzte Byte als Sekundäradresse in $AB 
gerettet. Daraufhin wird der Vorspann eingelesen und im 
Cassettenpuffer abgelegt. Danach wird über die 
Betriebssystemroutine ab $FC93 der Motor ausgeschaltet und 
beim C-64 der Bildschirm wieder eingeschaltet. 


pP ramm laden : LOAD $C21 


Durch dieses Unterprogramm wird das Programm eingelesen. 
Zuerst wird mit SCOUNT die Synchronisation 2 gesucht und 
damit auch die Leseroutine auf das Band synchronisiert. 


LLOOP ist die eigentliche Laderoutine. Mit HOLBYT wird ein 
Byte eingelesen und über den Startvektor indirekt-indiziert 
in den Speicher geschrieben und verglichen. Bei V (VERIFY) 
wird nur verglichen. Tritt dabei ein Fehler auf, wird das 
Statusbyte gesetzt. Danach wird die EXOR-Prüfsumme gebildet 
und der Startvektor inkrementiert. 


Die Schleife LLOOP wird solange durchlaufen, bis die 
Differenz zwischen Start- und Endvektor gleich null ist. 
Dann wird noch die abgespeicherte Prüfsumme eingelesen, der 
Motor aus- und beim C64 der Bildschirm angeschaltet. Über 
die Betriebssystem-Routine $FC93 wird zum Hauptprogramm 


zurückgesprungen. 
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Als letztes möchte ich die Hauptroutinen etwas näher 


beschreiben. 
SAVE ROUTINE $C063 
In $AB wird zunächst die Wiederholungszahl der 


Synchronisation 1 abgelegt und das Flag ABSFLG gelöscht. 


Danach werden über GETPARA die einzelnen Fileparameter 


eingelesen. Entsprechend ABSFLG werden dann die 
Basicvektoren in die Lade-, Start- und Endevektoren 
übertragen. 


Ab $CO7F wird die Recordertaste abgefragt, "SAVING name" 
ausgegeben, der Motor gestartet und beim C-64 der Bildschirm 
ausgeschaltet. Über das Unterprogramm SYNCH wird nun die 
Synchronisation auf Band geschrieben. Danach wird die um 
eins erhöhte Sekundäradresse auf Band übertragen. Darauf 
folgend wird ab $CO94 der Vorspann, bestehend aus Start- und 
Endadresse, Filename und Füllbytes auf Band geschrieben. Zum 
Schluß folgt die Synchronisation 2, die zur Kennzeichnung 
mit einem Null-Byte abgeschlossen ist. 


Ab $COCB (PRGLOOP) folgt die eigentliche 
Programmspeicherroutine. Das Programm wird über den 
Programmstartvektor $AC/$AD indirekt - indiziert aus dem 


Speicher gelesen und an die Datassette übertragen. Danach 
wird der Vektor $AC/AD inkrementiert und mit dem 
Programmendvektor verglichen. 


Diese Schleife wird solange durchlaufen, bis der Startvektor 
gleich dem Endvektor ist. Als Abschluß wird dann 255 mal die 
EXOR-Prüfsumme auf Band geschrieben. Nun wird 1 in das 
Motorflag geschrieben, um das Abschalten des Motors 
vorzubereiten, und das Speichern über die 
Betriebssystemroutine in $FC93 beendet. 
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LADEROUTINE SC18E 


Als erstes wird eine Synchronisation durch das Unterprogramm 
SSYNCH gesucht. Ist das letzte Byte der gefundenen 
Synchronisation, das in $AB geschrieben wurde, null, handelt 
es sich um eine Synchronisation 2, und es wird wieder zum 
Start dieser Routine gesprungen. Ist $AB ungleich null, 
wurde eine Synchronisation 1 gefunden, und der Wert in $AB 


ist die Sekundäradresse. 


Ist das File mit der Sekundäradresse eins abgespeichert, 
oder ist die beim Ladebefehl übermittelte Sekundäradresse 
gleich eins, wird in ABSFLG Bit eins gesetzt, und die 
Startadresse aus dem Cassettenpuffer wird in den 
Ladestartvektor geschrieben. Danach wird ab RELLOD "Found 


name" ausgegeben. 


Das Unterprogramm ADTEST testet nun anhand von Bit null von 
ABSFLG, ob anstatt der im Cassettenpuffer stehenden 
Startadresse eine andere durch den L-Befehl übermittelte 
Adresse als Ladestartvektor benutzt werden soll. Ist Bit 
null von ABSFLG gesetzt, wird die mit L übermittelte 
Adresse, die in $AC/$AD steht, in den Startvektor 


geschrieben. 


Entsprechend Bit zwei von ABSFLG wartet der Computer nun auf 
einen Tastendruck von Ihnen oder nicht. Nach dem Test, ob 
die STOP-Taste gedrückt wurde, wird der Filename des 
gefundenen Files mit dem des gewünschten verglichen, falls 
ein Name übergeben wurde. Stimmen die Namen überein, kann 


der Ladevorgang beginnen, und das Statusbyte wird gelöscht. 


Durch die Addition der Programmlänge, gebildet aus der 
Differenz der Start- und Endadresse aus dem Vorspann, und 
dem Startvektor wird die Endadresse berechnet und in den 
Endvektor geschrieben. Das Unterprogramm PLOAD lädt dann das 


Programm. 


Danach werden die Prüfsummen verglichen und ggf. der Status 
gesetzt. Wenn in ABSFLG kein Bit gesetzt ist, werden über 
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die Betriebssytemroutine STOEND die Basic-Vektoren auf das 


Programmende gesetzt. 


Die Routine MERGE, LOAD und VERIFY laufen alle über die LOAD 


Routine. 
Bei MERGE wird der Startvektor entsprechend dem 
Basic-Programmendvektor gesetzt. Danach wird relativ 


geladen. Bei VERIFY wird das VERIFY-Flag über das X-Register 
auf eins, bei LOAD auf null gesetzt. 


Vor der LOAD-Routine werden über GETPARA noch die weiteren 


Parameter eingelesen und in ABSFLG der entsprechende Wert 


gesetzt. 


DATENSPEICHERUNG UND DATEN LESEN 


Die Daten werden als 3 Blöcke abgespeichert. 


1. Block : Variablen 
Bereich zwischen den Zeigern 45, 46/47, 48 


2. Block : Felder 


Bereich zwischen den Zeigern 47, 48/49, 50 


3. Block : Strings 
Bereich zwischen den Zeigern 51, 52/55, 56 


Die Länge der einzelnen Blöcke wird im Vorspann durch die 
Start- und Endadresse übergeben. 


DATASAVE $c311 
Ehe die Daten abgespeichert werden können, müssen sie auf 


minimalen Platz komprimiert werden. Deshalb wird zu Beginn 


die Garbage-Collection aufgerufen. 
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Mit Hilfe von GETPARA wird nun der Filename gesetzt. Danach 
wird als Sekundäradresse 1 gegeben, da ein bestimmter 
Speicherbereich abgespeichert werden soll. Durch ULOOP 
werden die Zeiger auf Anfangs- bzw. Endadressse des 


Variablenbereichs in die Start- und Endvektoren übertragen. 


Zuletzt wird dieser Bereich durch das Unterprogramm ABSOLUT 
absolut abgespeichert. 


Die Felder und Strings werden danach analog zu den Variablen 


ohne Filenamen über ABSOLUT abgespeichert. 


DATALOAD $C361 


Zuerst wird über GETPARA der Filename gesetzt. Durch Setzen 
des Bit null in ABSFLG wird erreicht, daß der Bereich an 
eine bestimmte Adresse geladen wird und die Adressen im 


Vorspann ignoriert werden. 


Als Ladeadresse wird die Variablen-Startadresse in den 
Startvektor übertragen. Über LOADR wird nun der 
Variablenbereich eingelesen. Danach wird zusaätzlich Bit 
zwei in ABSFLG gesetzt, damit der Rechner nach dem Finden 
der nächsten Synchronisation 1 nicht auf einen Tastendruck 
des Bedieners wartet. Weiterhin wird kein Filename gegeben. 
Der Imjalt von $AE, $AF setzt den Zeiger auf das Ende des 
beschriebenen Bereichs. Dieser Zeiger wird zugleich als 
Startvektor für die Felder in den Ladestartvektor 
übernommen, damit bei erneutem Aufruf von LOADR die Felder 
eingelesen werden. Danach wird $AE, $AF in den Zeiger auf 


das Ende der Felder geschrieben. 


Da die Stringtabelle vom Basic-RAM-Ende nach unten wächst, 
wird deren Ende nicht durch die Basic-Programmlänge 
beeinflußt. Aus diesem Grunde wird dieser Bereich immer 
wieder dahingeladen, von wo er abgespeichert wurde. Darum 
wird Bit null in ABSFLG gelöscht. Danach wird die Tabelle 
durch die Routine LOADR geladen. 
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Der Zeiger auf das untere Ende der Stringtabelle wird dann 


aus dem Cassettenpuffer gelesen und in 51, 52 gespeichert. 


Zu guter letzt wird der Status getestet und ggfs. eine 
Fehlermeldung ausgegeben. Ist kein Fehler aufgetreten, wird 
der Stringdescriptor zurückgesetzt und zum Hauptprogramm 
zurückgesprungen. 
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13. DATENVERARBEITUNG MIT FASTTAPE 


In diesem Kapitel möchte ich Ihnen zeigen, daß auch mit 
einem Cassettenrecorder mit der geeigneten Software eine 


effiziente Datenverarbeitung möglich ist. 


Das in diesem Kapitel abgedruckte Datenverarbeitungsprogramm 


hat folgende Spezifikationen: 


- Daten speichern und laden mit FastTape. Je nach 
Größe der Datei dauert der Speicher- und Ladevorgang 
zwischen 20 Sekunden und 1,5 Minuten. 


- Die Wahl der Datensatzanzahl ist Ihnen überlassen. 
Das Maximum ist von der freien Speicherkapazität des 


Rechners abhängig. 


- Ein Datensatz kann in beliebig viele Felder 


unterteilt werden. 

- Ein Feld darf maximal 80 Zeichen haben. 

- Die Bezeichnung der einzelnen Felder ist frei 
wählbar und kann auch nach der ersten Festlegung 
geändert werden. 

- Gesucht werden kann in einzelnen oder mehreren 
Feldern. Dabei können Sie wählen, ob ein oder alle 
Suchkriterien erfüllt werden sollen. 


- Die Suchgeschwindigkeit ist in allen Feldern gleich. 


- Es kann nach Übereinstimmung, Ungleichheit, größer 


und kleiner gesucht werden. 
Falls Sie eine Befehlerweiterung mit einem 


INSTRING-Befehl besitzen, kann auch nach 


Teilbereichen innerhalb von Feldern gesucht werden. 
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- Wenn in mehreren Feldern gesucht wird, kann für 


jedes Feld eine andere Suchfunktion bestimmt werden. 


- Es kann jederzeit eine HELP-SEITE angezeigt werden, 


die die einzelnen Befehle erklärt. 


- Sie können mit gefundenen Daten Listen erstellen, 


die Sie formatiert ausgeben können. 


- Sie können frei bestimmen, welche Felder ausgegeben 


werden sollen. 


- Die einzelnen Felder können mit oder ohne 


Feldbezeichnung ausgegeben werden. 


- Listen können nach einem beliebigen Feld sortiert 


werden. 


Ich habe dieses Programm so geschrieben, daß es ohne 
Änderungen sowohl auf dem VC 20 als auch auf dem C-64 läuft. 
Diese allgemeinen Anpassungen brauchen aber einen gewissen 
Speicherplatz und können bei Bedarf geändert bzw. gelöscht 
werden, sodaß wieder mehr Speicherplatz zur Verfügung steht. 
Damit Sie bei Bedarf das Programm an Ihre eigenen 
Bedürfnisse anpassen können, finden Sie am Ende dieses 


Kapitels eine detaillierte Programmbeschreibung. 


Doch kommen wir nun zur Bedienung des Programms. Es ist 
möglich, mit diesem Programm eine Datei beliebiger Art 
einzurichten und zu bearbeiten. Sie können ein Literatur- 
oder Rezeptverzeichnis anlegen, Ihre Plattensammlung 
erfassen, oder die Adressen Ihrer Freunde verwalten. 


Um Ihnen die Funktion und Bedienung dieses Programms 
darzulegen, ist es am besten, wenn Sie, geleitet durch diese 
Bedienungsanleitung, eine Übungsdatei anlegen. Da ein 
Rezeptverzeichnis oder ähnliches zu diesem Zwecke zu 


umfangreich ist, legen Sie am besten eine Adressdatei an. 
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Ich gebe zu, daß dies schon eine äußerst abgedroschene 
Dateiart ist, doch ist es mit einer Adressdatei möglich, mit 
wenig Schreibarbeit eine Datei mit mehreren Datensätzen zu 


schreiben. 


Nach dem Starten mit RUN erscheint auf Ihrem Bildschirm das 
Menue. 


*#*MENUEx8** 


Datei pflegen 
blaettern 

} Liste ausgeben 
Liste sortieren 
Daten eingeben 
Datei laden 
Datei speichern 
Datei einrichten 
Feldbez. aendern 

EFITIE 





Da Sie noch keine Datei angelegt haben, wählen Sie als 


erstes Punkt 9 des Menues. 


DATEI EINRICHTEN 


In diesem Menuepunkt müssen Sie die Grundcharakteristika 
Ihrer Datei eingeben. Sie werden gebeten, die Feldanzahl und 
die maximale Datensatzanzahl einzugeben. Diese Werte können 


nicht mehr geändert werden. 


Danach werden Sie aufgefordert, Feldbezeichnungen für die 


einzelnen Felder einzugeben. Für unsere Übungsadressdatei 
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geben Sie bitte als maximale Datensatzanzahl 10 oder mehr 
ein und als Feldanzahl 7. Die einzelnen Felder bezeichnen 


Sie am besten folgendermaßen: 


Vorname 

Name 

Straße und Hausnummer 
PLZ 

Wohnort 

Telefon 

Hobby 


no u 2 vDnNnD-—- 


Wenn Sie diese Eingaben getätigt haben, kehren Sie wieder 
zum Hauptmenue zurück. Ein nochmaliges Anwählen dieses 
Menuepunktes ist nun nicht mehr möglich. 


Da Sie das Programm ja noch nicht richtig ausgetestet haben, 
es können sich immer einmal Fehler beim Abtippen 
einschleichen, speichern Sie diese Datei vorsichtshalber 
schon mal ohne Daten ab. Wählen Sie dafür den Punkt 7 "Datei 


speichern" an. 


Als erstes werden Sie nach dem Filenamen gefragt. Geben Sie 
"Adressen" ein und drücken Sie RETURN. Nun werden Sie 
gebeten, eine Datencassette einzulegen. Legen Sie also eine 
Cassette als Datencassette in Ihren Recorder. Achten Sie 
dabei darauf, daß Sie die Cassette nicht ganz am Anfang 
stehen haben, damit die Datei auch sicher gespeichert wird. 
Drücken Sie RETURN und folgen der Aufforderung "PRESS RECORD 
& PLAY ON TAPE". 


Nachdem alle Variablen gespeichert wurden, kehrt der Rechner 
zum Menue zurück. Nun wollen wir einige Datensätze eingeben. 


DATEN EINGEBEN 


Nachdem Sie diesen Menuepunkt angewählt haben, erscheint 
folgendes Bild: 
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* DATEN EINGEBEN * 


es existieren ® Datensaetze 


Wohnort | 


Leleron | 


Hobbu © | 





Der Cursor steht unter der Feldbezeichnung "Vorname*. Sie 
können nun in jedes Feld bis zu 80 Zeichen schreiben. 
Solange Sie innerhalb eines Feldes bleiben, steht Ihnen der 
volle Commodore-Bildschirmeditor zur Verfügung. Füllen Sie 


die Felder einmal folgendermaßen aus: 


* DATEN EINGEBEN * 


es existieren ® Datensaetze 


REES: ET 


üÜberstr. FE 


Duesseldorf 
leleron : | 


HDobbu |] 
Computer 
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Nachdem Sie die Eingabe im letzten Feld mit RETURN 
abgeschlossen haben, erscheint "RETURN" in der letzten 


Bildschirmzeile. 


Sie haben nun folgende Eingabemöglichkeiten: 


RETURN - Der Datensatz wird in die Datei übernommen, und 


Sie können den nächsten Datensatz eingeben. 


Q - Der Datensatz wird nicht übernommen, und das 
Programm kehrt zum Menue zurück. 


K - Der Cursor erscheint wieder im ersten Feld, und 


Sie können die Eingaben korrigieren. 


beliebige 
andere 
Taste - Der Datensatz wird übernommen, und das Programm 


kehrt zum Menue zurück. 


Geben Sie also bei fehlerfreier Eingabe RETURN. Im Kopf wird 
nun angezeigt, daß ein Datensatz existiert und der Cursor 
erscheint wieder im ersten Eingabefeld. In den Feldern steht 
nun noch die letzte Eingabe, die Sie jetzt ggf. 
überschreiben können. Falls sich einige Felder nicht ändern, 
können Sie sie durch Drücken von RETURN diesen Datensatz 
übernehmen. Geben Sie auf die oben beschriebene Weise einmal 


vier Adressen ein. 


Falls eine Erweiterung mit "INSTRING"-Befehl zur Verfügung 
steht, geben Sie auch einmal den nächsten Datensatz ein: 
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* DATEN EINGEBEN # 


es existieren 4 Datensaetze 


MTSSTEND 
Marlies 
RETITSSEERE 
Bange 


SERSETSTSTERENEEN = ETTESHTTUNGTOTS TEEN 
Kaiserstr. 44 

EL: 

4150 

Wohnort, : | 

Krefeld 

lelefon : | 

344322 

HobhEu © | 

Hochen/Computer 





Kehren Sie nun durch Drücken einer beliebigen Taste zum 
Menue zurück. 


BLÄTTERN 


wählen Sie nun Menuepunkt 2. In diesem Modus können Sie sich 
die Daten in der Reihenfolge in der Sie sie eingegeben haben 
ansehen und ggf. ändern. 


Durch Betätigen der RETURN-Taste können Sie jeweils um einen 
Datensatz weiterblättern. Mit der "-"-Taste können Sie 
zurückblättern. Wenn Sie die "K"-Taste drücken, erscheint 
der Cursor im ersten Feld, und Sie können den angezeigten 
Datensatz ändern. Mit der "Q"-Taste kommen Sie wieder in das 
Menue. 
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* * ELAETTERN * * 


Datensatz Nr. 2 


Feter 

RETTTEEREE 

Namenlos 
SIERT 2 EITESTTTSTSTEEREE 


Dorfstr. 1723 


DL: | 
1234 
Wohnort : | 
Nirgendwo 
NEIRSITSTTERERN 
123456 
Hobby : | 
Computer 





DATEN PFLEGEN 


Unter Menuepunkt 1 gelangen Sie in diesen Programmteil. Sie 
können hier die Daten selektieren, löschen, ändern und 


Listen erstellen. 


Als erstes suchen wir im Feld "Name" alle Datensätze, in 
denen der Name mit "M" beginnt. Geben Sie also auf die 
Frage, nach welchen Feldern gesucht werden soll, eine 2 ein. 
Daraufhin erscheint die entsprechende Feldbezeichnung invers 
auf dem Bildschirm. In der vorletzten Bildschirmzeile 


erscheint: 


[I = 1 7 © = 0: <> 0/4: > 70: Q] 
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Das sind die Auswahlmöglichkeiten, die Sie haben. 


1. Teilstring (nur mit INSTRING-Befehl) 
Sie suchen nach einer Zeichenfolge, die an beliebiger 
Stelle innerhalb des Feldes stehen kann. 


2. Gleich 

Sie suchen nach einer signifikanten Zeichenfolge, die 
genau gleich Ihrem Suchstring ist. Es werden dabei 
immer nur soviele Zeichen verglichen, wie Sie als 
Suchstring eingeben. Geben Sie z.B. "Ma" ein, findet 
das Programm Mann, Maus, Mama etc.. Dies gilt analog 


auch bei den folgenden Möglichkeiten. 


3. Ungleich 
Hier werden die Strings gefunden, die nicht mit dem 


Suchstring übereinstimmen. 


4. Größer oder gleich 


Hier findet das Programm alle Strings, die größer oder 
gleich sind. Geben Sie z.B. M bei dem Namen ein, 
werden alle Namen gefunden, die mit M oder einem 
folgenden Buchstaben (N, O0, P, 9...) beginnen. 


5. Kleiner oder gleich 


Geben Sie als Suchstring M ein, werden alle Namen, die 


mit A - M beginnen, gefunden. 


Drücken Sie "2", und Sie erhalten folgendes Bild: 
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SUCHEN / AENDERN 
Vorname 
Name 
Strasse u. Hausnummer 
FL.Z 
Wohnort 
Telefon 
Hobby 


. 


1 
4 
=] 
& 
7 


Nach welchen Feldern soll gesucht werden 





Wenn Sie innerhalb weiterer Felder suchen wollen, müssen Sie 


nur die entsprechende Zahl eingeben. 


wir wollen aber jetzt erst einmal nur nach dem Namen suchen. 
Durch Drücken der RETURN-Taste schließen Sie die Eingabe ab 
und werden nun gefragt, ob ein Datensatz bei einer oder 
allen Übereinstimmungen gefunden werden soll. Da Sie ja 


sowieso nur ein Auswahlkriterium eingegeben haben, geben Sie 


RETURN. 


Es erscheint nun die bestimmte Feldbezeichnung und der 
Cursor. Da wir alle Namen suchen wollen, die mit "M" 
beginnen, geben Sie M ein und RETURN. Daraufhin erscheint in 
der letzten Bildschirmzeile wieder "RETURN". Wenn Sie nun 
"K" drücken, können Sie die Eingabe korrigieren. Drücken Sie 
RETURN, beginnt der Rechner mit der Suche und zeigt dann die 
Trefferzahl, die Datensatznummer des angezeigten Datensatzes 


und den Datensatz selber an. 
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SUCHEN / AENDERN 


Treffer 
Datensatz Nr. % 


Oberstr. 


PLS | 
4000 
Wohnort | 
Duesseldorf 
NENSASTEEERE 


Hobbu : | 
Computer 


RETURN 





Sie können nun wie unter "Blättern" in den gefundenen 


Datensätzen blättern. 


Weiterhin können Sie sie durch "K" korrigieren und durch "L" 


löschen. Mit "Q" gelangen Sie wieder in das Menue. 


Machen Sie sich jetzt am besten etwas mit den Menuepunkten 1 
und 2 vertraut, damit Sie sehen, wie und wie schnell die 
gewünschten Datensätze gesucht und korrigiert werden können. 
Suchen Sie dann einmal nach einem Kriterium, das auf mehrere 
Datensätze zutrifft. 


Wenn Sie so eine Liste aus mehreren Datensätzen erstellt 
haben, können Sie sie über Menuepunkt 4 nach einem 


beliebigen Feld, z.B. "Namen", sortieren. 


Über den Menuepunkt 3 können Sie die Liste auf dem 


Bildschirm oder auf einem Drucker ausgeben. 
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LISTE AUSGEBEN 


In diesem Menuepunkt werden Sie gefragt, welche Felder 
ausgedruckt werden sollen. Durch die Eingabe der Feldindice 
können Sie die gewünschten Felder wählen und mit RETURN die 


Eingabe beenden. 


Wenn Sie stattdessen "K" eingeben, werden die angezeigten 
Felder gelöscht, und Sie können die Eingabe wiederholen. 
Nachdem Sie die gewünschten Felder gewählt haben, drücken 
Sie RETURN. 


Als nächstes werden Sie nach einer Überschrift gefragt. 
Diese wird dann oberhalb Ihrer Liste ausgegeben. Bei der 
Druckerausgabe wird die Überschrift in Breitschrift 
ausgedruckt. 


Danach können Sie wählen, ob die Feldbezeichnungen mit 
ausgedruckt werden sollen. 


Als letztes wird danach gefragt, ob die Ausgabe auf den 
Bildschirm oder über einen Drucker erfolgen soll. Bei der 


Druckerausgabe könnten Sie dann folgendes Bild erhalten: 


Ir Fa ber Freak 


Marlies 

Anmut 
Kaiserstr. 12 
4156 

Krefeld 

356 


Hochen/Computer 





Max 

Meier 
Oberstr. = 
Z.tcTeTe} 
Duesseldorf 


Computer 
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Feter 
Namenlos 
Dorfstr. 123 
1234 
Nirgendwo 
122456 


Computer 


Das Programm ist so konzipiert, daß jedes Feld in eine 
eigene Zeile geschrieben wird. Durch Programmänderungen in 
den Zeilen 2870 - 2930 können Sie das Ausdruckformat 


entsprechend Ihren Wünschen ändern. 
Wenn Sie die Liste auf den Bildschirm ausgeben, können Sie 
die Ausgabe durch Drücken der "SPACE" - Taste anhalten und 


wieder starten. 


Ich hoffe, daß Ihnen die Bedienung dieses Programms nach 
einigem Üben keine Schwierigkeiten mehr macht. 
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1 goto 1060 
BE 2 2 2 2 2 2 2 2 2 2 2 2 212 2 2 2 2 2 2 2/2 2722 272/272 22 272 2 27222727272 72727 2022 222 2 227 2727272727202 
98 rem " Such-Routine" 
BES 2 & 2 2 2 2 2 2 2 2 2 2 27212 22 2 2 27272 227227 2727222 227272727222 27 2712727272722 232222222 27272 
188 if(f>fe)or (n;=as)then return 
116 a=sf (f) 
129 on a gosub 156,190,250,280, 226 
130 f=f+1:goto 108 
146 : rem _" Teilbereich 
156 t=instr (u$(f),s$(f)) 
166 if tx>® then n=n+1 
178 return 
188 : rem " ganz "=? 
198 if s$(f)=left$(u$(f),len(s$(f)))then n=n+i 
208 return 
21@0 : rem _" ganz ’*X=?’ 
220 if s$(f)}=left$(u$(f),len(s$(f)))then n=n+1 


2350 return 


sen? 


248 : rem " ganz "> 
250 if s$(f)X>left$(us(f),len(s$(f)))then n=n+1 
2650 return 


> E 


278 : rem " ganz ’>= 
280 if s$(f)i=left$(u$(f),len(s$(f)))then n=n+1 
298 return 
KERETTEIETEEEEIEEIEIETEIETERIIEHEERIEERTEHEIERERIET KR 
1692 rem "Warteschleife 
BE 2 2 2 2 2 2 2022 22 272727272722 227272727222 272720227 2272727222 2 27272 27227222 22 22 2/22 2 27202 
181@ poke 198,@:wait 198,1:get a$t:a=asc (a$) 
:rem_ "Warteschleife 
10280 if a=1I5 then gosub 3750 
103 


KERRRKKRRTRKTKTERRTTR TER TER THEHRHERNERRHHTRHREREHHTHHTHNEKNRHNERHRRRTNNRR 


@ return 


105@ rem" Initialisierung 
EZ 2 2 2 2 272 12 27272 2 2 2727272727222 2722722227272 22 227 272722 2 2 27272712722 2 22 22 2 2 2 2 2 2 2 2 2 
1068 dw$=" [home, down2512" 
107@ sys 65517:sp=peek (781): ze=peek (782) 
:rem_" Bildschirmdaten holen 


1880 c1=53281:c2=1:if sp=22 then c1=356879:c2= 
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1098 


dim z$(4:2$(0)=" T"sz$(1)=" ="ız$(2I="CHtezslDer)e" 
126 (4)="c=" 


ERRRRHRRRKRRHRHHHHRN TIERE TR HH RITTER NH IH HH HH HR HR RER IHR TH FR RR 
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rem Hauptprogramm 


KERERKRKRRRRRHRRR THEIR HENRI HEIKE HIERHER EN ER RER RRRRR 


111® 
1120 
1156 
1140 
1156 
1168 
1178 
1186 
11978 
1208 
1210 
1220 
12358 
12590 


1268 


print chr$(14):poke c1,6*c2 

gosub 3566: print:print:ta=int (sp/5) -2 

print tabtta)"[white,rvsJli[rvoff,spacelDatei pflegen" 
print tab (ta) "[rvs]2[rvoff,spacelblaettern " 

print tab(ta)"[rvs]S(rvoff,spacellListe ausgeben" 
print tab(ta) "[rvsJ4[rvoff,spacelListe sortieren" 
print tabtta) "[rvs]15[rvoff,spacelDaten eingeben "“ 
print tab(ta)"[rvslö[lrvoff,spacelDatei laden " 
print tab(ta)"[rvs]7[rvoff,spacelDatei speichern" 
print tab (ta) "[rvsJöfrvoff,spacelDatei einrichten” 
print tab(tta)"[rvs]9[rvoff,spacelFeldbez. aendern" 
print tab(ta) "[rvs]lE[Lrvoff,space4,rvsJENDELrvoff]" 
gosub 1810:a=val (a$):if af="e"then 1270 

on a gosub ?130,72000,2700,29970,1860,1570,1460,1700,1 
780 

goto 11198 


KRRHRRRRHRKHHN KH RR TH HR NIIT HR HH IHN HH KR RI HR HH HIER RR 


1265 


rem "Programm ENDEN 


KERRRERRKKRIRRKHHHRTHTR HH TH HN HR KH HH HH HH N RR NH HH HH HR HH HR 


1270 
1280 


1290 
1300 


iftfl and 2)=2 or(fl and 4)=@ then end 
print"[clear,down28]":print tab (sp/2-8) "[wnhiteltrotz 
dem ENDEN" :gosub 1318 

if f1<>255 then 1119 


end 


KRRRRRIKKRHKHERRRIEH HN HH HN HH HH KRITIK HH HR RER 


1305 


rem " FEHLER 


KRERRKRRRKRRHRRKRIHHR HH ETHERNET NE HER RER EHI HR HF HR HR HERR FEN 


131® 
1320 
1338 
1340 
1358 
13608 


1370 


poke c1,5%*c2 

print"[home]":print"[down?]1" 

print:print tab (sp/2-3) "[red,rvs]IDATEI" 
print:print tab (sp/2-6) "Ervs]IWURDE NICHT" 
print:print tab (sp/2-7) "LrvsI1ABGESPEICHERT" 
for i=® to 15:get a$:if a$<>""then i=15:next 
:goto 1448 


next 
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1280 
1390 
1400 
1416 
1426 
1430 
1446 
1450 


print"[Chome]":print"[down?]" 

print:print tab (sp/2-3) "LredIDATEI" 

print:print tab (sp/2-6) "WURDE NICHT" 

print:print tab (sp/2-7) "ABGESPEICHERT" 

for i=@ to 15:get a$:if a$=""then i=15:next:goto 1310 
next 

if a$="j"then f1=255 


return 


KERHKRRRRRRRRHHN HH THE HN HERR HERR TER HEHE HERE TRETEN HN RR NR 


1469 


rem " Speichern 


KRERRRRRRHRHRRRT THE KH HEHE HR HN HIERHER EHER KH HH RHEIN 


1470 
1480 
1496 
1590 
1510 
1520 
1530 
1540 
1550 
1560 


if(fl and 1)=8 then return 


poke c1,7*c2:print"[blue]l":gosub 3590 


print:print:print" "f$"Lup]":input"Filename";f$ 
print:print"Datencassette einlegen" 
print:print:print" << RETURN >>" 

gosub 181© 


if a$="k"then print"[homel":goto 1490 
if a$="q"then return 
if a<>13 then 1526 


_dsf$:fl=fl or Z:return 


KREHKHRRHHRRHHHTRRHTHH HH HH HEHE HH RER HH HE HEHE NEE KH NER 


1579 


rem Laden 


KERKRKKKRKKKRRKRHRKHN RT RR HH KH HH HH HH HK NR RER KHK RR RR 


1588 
1590 
1600 
1616 
1626 
1630 
1640 
1650 
1660 
1679 
1680 


16979 


if(fl and 6)=4 then gosub 1680:if f1X>255 then return 
poke c1,7%*c2:print"[bluel":gosub 5588 
print:print:print" "f$"Lupl":input"Filename";f$ 
print:print"Datencassette einlegen" 
print:print:print" << RETURN >>" 

gosub 1918 

if a$="k"then print"[home]l":goto 16090 

if a$="gq"then return 

if a<>13 then 1630 

_dif$:fl=fl and 25S1:return 

print"[clear, down281":print tab (sp/2-8) "[whiteltrotz 
dem LADEN" 

gosub 131®:return 


KERKRRRERRRRRRRHRK HT TREE HER ER HER FE HE NE EHE HEN ER NER 


1798 


rem " Datei erstellen 


KERERKERRRRRRKHKRKRKHH RK NR NEE HEHE EHRE EHER HR RER RR 


133 


1718 
1720 
1730 
1740 
1750 


1760 
1770 


poke c1,8%*%c2:if fl then return 

gosub 355%:rem_" Titel schreiben 
print:print:input"Feldanzahl";fa 
print:input"[downJmax Datensaetze"sra 
print:print"<< RETURN >> ":gosub 1019 
:sif a<>15 then print"[homel":goto 1730 


dim m$(fa) ,et(fa,ra),sf(fa),s$(fa) ,u$(fa),gf%(ra) 
fl=1:rem_" Flag setzen 


KERKKHKRRIKRNEN THE HH HT HIHI 


1775 


rem " Feldbezeichnungen eingeben 


AHRRKRKRKHKRRKTH HR NH HH RK NR TR HH HH HH HH TR HH HH HK HR RR RR 


1780 
1790 
1880 


1819 
18208 


1830 
1840 


1850 


if(fl and 1)=6 then return 
gosub 3550:rem_"Ueberschrift schreiben 
print:print"Geben Sie die ";:if sp“48 then print 
print 
print"Feldbezeichnungen ein" 
print:for i=® to fa-l:print:print"[rvslFeld "i+1"[rv 
offl" 
print" "m$(i)"Lup}"zinput m$(i):znext 
print left$(dws,ze)"<< RETURN >>"5j:gosub 1019 
:if a$="k"then print"[homel":goto 1800 


fl=fl or 4:return 


u Sa 2 2 2 ZZ 2 ZZ 22 SE 22 2 2 22275 2 22 2 2 2727272122 22027022 2727272727272 72727272727 27202727272 


1868 


rem " Daten eingeben 


KERRKKRRRRHTER EHER 


1865 
1870 
1880 
1890 


1908 
1910 
19728 
1930 


1940 
1950 
19768 
1979 
1980 


if fl and 1=6 then return 

poke c1,3#*c2:print"[blue]" 

close l1:open 1,98 

gosub 3589: print:print"es existieren"rt; 

:if sp<48 then print 

print"Datensaetze" 
ri=rt:r2=ert:if (rt>@0)and (a$<>"k")then ri=rt-1 
gosub 3650:gosub 367@:rem_" Felder anzeigen 
print left$(dw$,ze) "[green,spaceS3SI<k< RETURN >> [whit 
el"5;:gosub 1010 

if a$="q"then return 

if a$="k"then 1896 

if a<>13 then fl=fl or 12:rt=ert+1l:return 
rt=rt+l:if rt{ra then 1896 


gosub 3589:print:print:print"maximale Satzzahl "5 
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1999 


:if spi46 then print 


print:print"erreicht":gosub 181®:return 


KRREKRKKRRRRHHRNTTRRIEHT NINE KH HH TH HH HH HH HR HIER HH HH HR RR 


2000 


u 


rem Blaettern 


KERRKRKRRKRHTRKR HT HH TH HN HH TR IH HET HN HH HH HH TR FH KR HH HH HH RN HR 


206% 
2070 
2080 
2090 
21090 
2116 


21280 


iftfl and 8)=2 then return 

poke c1,6#c2:print"[white]" 

r1=® 

if ri<o@ then ri=rl+trt 

gosub 361@:print:print"Datensatz Nr."ri 

gosub 365% 

print left$(dw$,ze) "[green,space3J<< RETURN >> [whit 
el"; :gosub 1018 

if a$="-"then ri=r1-1:goto 2025 

it a$="g"then return 

if a$="a"then gosub 256%:goto 2060 

if af>13 then 2058 

if ri{rt-1 then ri=ri+t1:goto 2030 

gosub 35618:print"[downd,right,rvs,spacelKeine weiter 
n Daten " 

ri=®:goto 2050 


KRRERKRRKRRHERRKHRKRHTN TRINKE HEHE EHEN EHRE 


2130 


rem " Datei pflegen 


KRERKRRUERKKRKRKHHRTHTN TH HN HERREN 


2155 
2148 
2150 
2160 


2170 


2189 


2190 
2200 


if(fl and 8)=8 then return 

poke c1,4*c2 

for i=® to fa-1:sf (i)=®:next:as=® 

gosub 3620: for i=® to fa-1:print i+1"[Lleft]. "m$(i) 
next 

print:print"Nach welchen Feldern "5 

:if sp<48 then print:print 

print"soll gesucht werden":print:print 

gosub 1010:if a=13 then 2262 

if a$="qg"then return 

if a$="k"then 2150 

i=sval(a$)z:if i<1l or i>fa then 2190 

if sf (i-1)then 2198 

dö=peek (214):rem_" Cursorzeile retten 

sf (i-1)=1:print tab (3) "[rvs]"m$(i-1):gosub 3710 
print left$(dw$,dös+1)z$ (sf (i-1)-1)zas=sas+ti:goto 2190 
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2262 
2264 
2265 
2266 
2267 
2270 
2280 


2290 
2308 
2310 
2320 
2330 
2349 


25350 
2560 


gosub 3628: print:print"Finden bei" 
print:print tab(4)"1 = einer" 
print:print tab(4)"@ = allen" 
print:input"Uebereinstimmungen"sue 
if ve then as=ue 
gosub 3628:close l:open 1,® 
print:print"Geben Sie Suchstrings "5 
:if sp<40 then print:print 
print"ein":print:print 
for f=8 to fa-1:if stf(f)=6 then 2330 
print"[rvs}]"m$(f)" : " 
print s$(f)"LupJ":input#1,s$(f):print 
next 
print left$(dw$,ze)"<< RETURN >>"5:2gosub 1616 
:if a$="k"then print"[homel":goto 2288 
if a$="g"then return 


if af>13 goto 2348 


KRERRRRRRERKRRKRRRITH HR HN IH TI THEH NER EHER RHEIN HEHE TIER INH NH ER 


2370 


rem " Suchen 


KRRRKRRKRRKRRKRIRHTK NETT THE TE NER N HER HE HR HEHE NEE HER NER ER RERRRR 


2372 
2374 
2376 
2378 
2380 
2390 
2409 
2410 
2420 


for f=® to fa-l:if sf(f)then fb=f:f=fa 
next:rem_"niedrigstes und hoechstes 

for f=fa-1 to ® step-l1:if sf(f)then fe=f:f=0 
next:rem_ "Suchfeld feststellen 

z=d:for r =0 to rt-1 
for f=fb to fe-l:if sf(f)then u$(f)=e$(f,r) 

next:rem_"Untersuchstrings umspeichern 

n=0: f=fb:gosub 100:if n>=as then gf%(z)=r:z=z+1 
next:if z=0 then 2130 


KEKERKRKUKRKRRUKHRRRKRKHHHHH NN TRINKT RR HET TRIERER TRENNT 


2430 


rem " Datensaetze anzeigen 


KERERKRKEHKRRÜRRRRHHHTRKRHHH NEN HIRTEN NR 


2449 
2450 


2460 
2470 


2480 
2498 


i=® 

gosub 3628:print:print z" Treffer" 

sprint"Datensatz Nr."gf%(i) 

ri=gf%li):gosub 3650 

print left$(dw$,ze)"[green,space3]J<< RETURN >> [whit 
el";:gosub 11 

if a$="-"and i>® then i=i-1:goto 2450 


if a$="g"then return 
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2500 if a$="a"then gosub 2566:goto 2486 
2510 if a$="l"then 2640 
2520 if a“X:15 then 2470 
2550 if i<z-1 then i=iti:goto 2450 
25460 gosub 3626:print"[down8,right3,rvs,spacelkeine weite 
rn Daten " 
2550 print left$(dw$,ze) "[green,space31l£<{ RETURN >> [Lwhit 
el";:gosub 1@19:goto 2450 
ERKENNEN HERR 
2560 rem " Aendern 
2 2 2 22 2 2 272 272727272202 22227 2727272720227 2727272 27222272 2727212722 2 2 272 2 2 22 2 2 2 22 2 2 2 2 
2578 close 1:open 1,®:r2=rl:gosub 3670 
2580 print left$(dw$,ze) "[green,space3lf<X RETURN >> E[whit 
el";j:gosub 101@ 
2608 if a$="k"then 2579 
2618 fl=fl or 4:fl=fl and 253:return 
268206 return 
BE 2 2 2 5727272722 222 2 27 27272727272 222 272 E72 Z 22 2727222 2 2 2 2 2 2 272721227272 12 72 2 202 2020202 
268390 rem " Loeschen 


KEKHRKRRRRRRKHKRRHH TH HN IHN HH HH HN HH HH HH N EHRE HEHE RR 


2648 for il=gf%(i)+1 to rt-i:rem_" Daten 


2659 for j=® to fa-i:rem = umspeichern 
2660 e$(j,i1-1)=e$(j,il) 
2670 next j,il 


26808 z=z-1:rt=rt-1:fl=fl or 4:goto 2450 
EEE NINE TH RE 
2690 rem " Liste ausgeben 
EHRE HIERHIN TITTEN HN HH RE 
2695 if z=® then return 
2798 poke c1,7%*c2:print"[blue]}" 
2718 for i=® to fa-1:sf (i)=®:next 
2728 gosub 3530 
2725 for i=® to fa-l:print i+t1"[left]. "m$(i):next 
2738 print:print"Welche Felder sollen "5 
sif sp<48 then print:print 
2748 print"ausgedruckt werden":print:print 
2750 gosub 1810:if a=13 then 2819 
2768 if a$="q"then return 
27790 if a$="k"then 2710 
2788 i=valla$):if i<i or i>fa then 2750 
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2798 if sf(i-1)then 2756 

2888 sf (i-1)=1:print"[rvs]"m$t(i-1l):print:goto 2758 

2818 print:input"Ueberschrift";5ub$ 

2828 print:print"Feldbezeichnungen":print 
:input"ausdrucken [1/0J";5fm$ 

2830 fm=val (fm$) 

2848 print:input"Drucker=4/Bilds.=0";dv 

28580 if dv then open 4,dv,7:cmd 4 

2858 print chr$(14)ub$chr$ (15) :print:print 

2878 for r=® to z-1 

2880 for f=8 to fa-l:if sf(f)=0 then 2910 


2870 if fm then print:print"[rvs]"m$(f)" : [Lrvoff]" 
2980 print e$(f,gf%(r)) 
2910 next:if dv then 2958 


2929 get a$t:if a$<>""then poke 198,6:wait 198,1:get a$ 
29530 print:print:next 

2948 if dv then print#4:close 4:return 

2950 print:print” << RETURN >>" 

2968 gosub 161@:if a<>13 then 2960 

2978 return 

Bu 2 2 2 2 2 2 22 2 2 272122 2 2 272722 2727272 227272722 272722272 2722 22727272022 0202272727272 0202227272 
2989 rem " Sortieren 
EZ 2 2 202 2 212 2 272 2720227227 2722272727227 2027272 2720202722 272027227232 2 22 2 E32 ZEN 2272222723 
2998 if z=®8 then return 

3000 gosub 3540 

3818 for i=® to fa-1:print i+t1"Lleft]. "m$(i):next 

38028 print"[downJNach welchem Feld ";j:if sp<4®© then print 

print 
3038 input"soll sortiert werden";sf:sf=sf-1 
3948 f1=0:fh=0: fh=peek (49) +peek (50) #256 
:crem "Obergrenze retten 

3050 f1=peek (47) +tpeek (48) #256: rem_" Untergrenze retten 
38560 dim n$(z),z(z+1) 

3970 q=i1:for i=® to z-I:rem_" Sortierfeld 

3980 n$(gq)=se$(sf,gf%(i)):rem_" umspeichern 

3098 z(gq)=q: q=>qti:next 

31008 gosub 3240: rem_" Sortierroutine 

3110 for x=® to fa-i 

3130 for y=8 to z-1 

3149 n$(y+t1)=e$t(x,gf%tly)) 
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3168 next 

170 for y=6 to z-1 

3189 es (x,gf%(y))=n$(z(yt1)) 

3206 next yıXx 

z21@ for i=® to z-1:n$(i)="":inext:rem_ "Strings von n$( 

} loeschen 

3220 gosub 3526:rem "Wiederherstellung der alten Zeiger 

238 return 
ee 2 2 272 27272722 2 2 272 2 Eee 22 & 272722 2 2 2 2 222 2 2727272 2222 2727202727272 22 2 2 2 2 2 22 


3235 rem Sortierroutine 
KETTE EEE 
3248 ti$="060080":print"I[clear]" 

256 l=int (z/DI +1 

32658 r=z:print"[clear)"r"[left,space3]"” 
3278 if 1>1 then 3340 

3280 if ri=1 then 33390 

3298 h2$=n$(1):hi>=z(]) 

3306 n$(1)=n$(r):z(l)=z(r) 

331® n$(r)=h2$:z (r)=hl 

3320 r=r-1 

3SE®0 goto 3350 

33546 1=1-1 

3350 j=1 

3368 i=2%#j 

3378 h2$=n$ (j):hi=z(j) 

33890 if i>r then 3480 

359@ if i>=r then 3420 

3466 if n$(i)>=n$(i+tl)then 3420 

3418 i=i+tli:print"[clear]"i"[left,space3]" 
34260 if i>r then 34890 

3450 if h2$>=n$(i)then 3480 

344@ n$(j)=n$(i):z(j)=z(i) 

3458 ji 

34608 i=2%j 

3470 goto 3398 

3486 n$(j)=h2$:z (j)=hil 

3498 if r<>1 then 32790 

3508 print"[clear,down2]Sortierzeit"5ti$ 
3518 return 


KRERKRRIRRIHERRIHR HIHI HR EHI REIHE REKEN HET RHHNERR 
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3515 


rem "Pointer wiederherstellen 


KRERRRRERKRRKRHRTKK HH HH H HH HH HR KH HH HH HH HH HH HH NH NR HER HER 


3520 
3530 
3540 


j=peek (47) +peek (48) #256+ (fh-f1) 
poke 49,j and 255:poke 56, int (j/256) 


return 


KERKKRKKRKRRHNTTHTEH HT HIN HH HH KH KH HN HIN RR HN ENR 


3545 


rem Ueberschriften 


KRRKRRRRRRRRRINN HEHE HH HER 


3550 


3560 


3579 


3580 


3590 


3600 


3618 


3620 


3630 


3649 


print"[clear]"5:print tab (sp/2-16)"* DATEI ERSTELLEN 
*"sreturn 

print"[clear]"5j:print tab (sp/2-16)"[whitel# * ME 

NUE * * *":return 

print"[clear]";5:print tab (sp/2-9)"* DATEI PFLEGEN *" 
return 

print"[clear,blue]";:print tab (sp/2-16)"* DATEN EING 

EBEN *":return 

print"[clear]"s:print tab (sp/2-8)"* DATEN SPEICHERN 

*":return 

print"[clear]";5:print tab(sp/2-6)"* DATEN LADEN *" 
return 

print"[clear]"5:print tab (sp/2-8)"* * BLAETTERN * *" 
:return 

print"[clear]"5:print tab (sp/2-8) "SUCHEN / AENDERN" 
return 

print"[clear]";5:print tab (sp/2-7)"LISTE AUSGEBEN" 
sreturn 

print"[clear]";5:print tab (sp/2-7)"LISTE SORTIEREN" 


return 


KRERRRKRKRRKTRHHH KH HN HH EHEN EHRT NER HEHE THE HH HER EHER RR RR RR 


3645 


rem Felder ausgeben 


KERRRKKRHKRHHITRKHN HH HH HH HH HH HH HR RENNER HERR NE 


3650 


3668 
3670 


3680 
3698 
3708 


print"Chome, downS1":for f=6 to fa-1 
sprint"[rvs}"m$(f)" : " 
print e$(f,ri):next:return 

print"[home,down5]1":for f=® to fa-i 
sprint"[rvs]"ms(f)" = " 

print e$(f,r1)"Lup]"za=slen(e$(f,r1)) 

if a>sp then for x=® to a/sp:print"[Lup]";:next 


input#1,e$(f,r2):print:next:return 


KERKERKRRHRTTTT HH NT HEN NT HH HERR HR NER ER IR 
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3705 rem " Suchform waehlen 

ERERERKIKTT HT TTTTTTNHTRTTNIETTENETTIRKETRKHTNKIRHRR 

3718 print left${dw$,ze-1)"[rvs231:T/2:=/3:<>/4:>/5 
»<[rvoff]"; 

3720 gosub 1018: j=val(a$):if j<i or j’5 then 3720 

3730 sf (i-1)=j 

3748 print left$(dw$,ze-1)" ";zreturn 

KERNE IHNEN NR 

3750 rem " Helpseite 

EERERTTTTNTTRTIITHH RITTER RRR RE 

3768 print"[clear])® xx HELPSEITEx*xxx x" 

3778 print:print"Wenn << RETURN >> erscheint haben Sie" 

3788 print:print"Optionen :":print:print 

3798 print"RETURN 


weitermachen":print 


3880 print"K = letzte Eingabe wiederholen":print 
3810 print"®O = Programmpunkt abbrechen":print 
3828 print"- = einen Satz zurueck":print 

3830 print"a = einen Satz aendern":print 


38408 print"l einen Satz loeschen":print 
3850 get a$:if a$=""then 3850 
3868 return 


59000 "RRRRRERERRRRKERKKRRKRTRKÄRKERKERKERERE 


5018 "* Dateiverwaltung mit Fasttape * 
5929 "x (ce) Dirk Paulissen * 
5039 "x * 
5040 "* Verwendete Variablen : * 
5050 "x fa = Feldanzahl * 
5060 "* ra = Recordanzahl (max) * 
5970 "* rt = - ??” —- (aktuell) * 
5980 "* f = aktuelles Feld * 
5098 "tr = aktueller Record * 
51909 "* sp = Spaltenanzahl * 
5110 "* ze = Zeilenzahl * 
5120 "x a$ = Fragestring * 
5130 "* #1 = Flag * 
51480 "* e$(f,r) = Datenstring * 
5150 "* sf(#f) = Suchfeldflag * 
5160 "* 1 : Teilstring suchen * 
51790 '* 2 2 ganz ’=?’ * 
5189 "* 3 : ganz ’<>’ * 
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". 4 2: ganz ’}=?’ * 
“x 5 : ganz ’<=’ * 
"x 5$(f) = Suchstring * 
"+ Us(H) = Untersuchstring * 
"* gfZ0 = Nummer der gefunde- * 
"* nen Datensaetze * 


VERERERRRRRRKERHRTRTR INH HH KH HH HR HH NTRRR 
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13.1 PROGRAMMBESCHREIBUNG 
Der Programmaufbau ist folgender: 


90 - 1030 Schnelle Unterprogramme 

1050 - 1090 Initialisierung 

1100 - 1260 Hauptprogramm (Menue) 

1270 - 3540 Unterprogramme, die vom Menue aufge- 
rufen werden 

3550 - 3640 Überschriften 

3650 - 3850 Unterprogramme, die von anderen Unter- 
programmen aufgerufen werden 

5000 - Ende Copyright Vermerk und Aufzählung der 


benutzten -Variablen 


ARBEITSWEISE 


Die Anpassung an die verschiedenen Computer geschieht in 
Zeile 1070 durch den Aufruf der Betriebssystemroutine SCREEN 
(65517). Diese Routine legt die Spalten- und Zeilenzahl in 
den Speicherstellen 781 und 782 ab. Entsprechend dieser 
Werte werden die Speicherstellen und die Werte für die 
FarbPOKE - Befehle gesetzt (C1, C2). 


Das Hauptprogramm besteht nur aus dem Menue und der 
Verzweigung in das gewählte Unterprogramm. zur 
Datensicherheit wurde ein Flag fl eingeführt, welches immer 
am Anfang eines Unterprogramms getestet und innerhalb der 
Unterprogramme gesetzt wird. Die einzelnen Bits von fl haben 


folgende Bedeutung, wenn sie gesetzt sind: 







Bedeutung 





eingerichtet 
Datei gespeichert 


Datei verändert 


nn 09 


Datei enthält Datensätze 
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Wird versucht, eine neue Datei zu laden oder das Programm zu 
beenden, ehe eine geänderte Datei abgespeichert wurde, wird 


in die Fehlerroutine 1305 - 1450 verzweigt. 


Die Programmteile "Laden" und "Speichern" verstehen sich von 
selbst. 


DATEI ERSTELLEN (1700 - 1850) 


Nachdem der Titel durch Zeile 1720 geschrieben wurde, wird 
per INPUT die Feldanzahl (fa) und Datensatzanzahl (ra) 
eingelesen. Durch die Abfrage in 1750 wird es ermöglicht, 
eine fehlerhafte Eingabe zu korrigieren. 


Entsprechend fa und ra werden in 1760 die Felder 
dimensioniert und in 1770 Bit null in fl gesetzt. 


In Zeile 1780 wird Bit null in fl getestet, da die Routine 
zur Eingabe und Änderung der Feldbezeichnungen auch vom 


Menue angesprungen werden kann. 


In Zeile 1800 und 1810 wird der auszugebene String 
entsprechend der Spaltenzahl des Computers in einer oder 


zwei Zeilen ausgedruckt. 


Innerhalb einer Schleife (Zeile 1820 - 1830) werden die 
einzelnen Feldbezeichnungen in m$(fa) eingelesen. Eventuell 
vorhandene werden auf dem Bildschirm ausgegeben und können 
durch RETURN übernommen werden. 


Durch die Abfrage in Zeile 1840 ist wieder eine Korrektur 


möglich. 


DATEN EINGEBEN (1860 - 1990) 


In Zeile 1865 wird fl daraufhin getestet, ob schon eine 


Datei erstellt wurde. 


144 


In der Zeile 1880 wird durch OPEN 1,0 die Tastatur eröffnet. 
Das hat zur Folge, daß bei einem folgenden INPUT#1 kein 
Fragezeichen ausgegeben wird. Aus Sicherheitsgründen wird 


vor jedem OPEN - Befehl die entsprechende Datei geschlossen. 


Über die Zeilen 1890 - 1900 wird die Überschrift und 
entsprechend der Spaltenzahl ein String ausgegeben. In den 
Unterprogrammen, welche die einzelnen Felder eines Satzes 
anzeigen (3650 - 3660) bzw. neue Felder einlesen 
(3670 - 3700), wird ri bzw. r2 als Satzzeiger benutzt. Aus 
diesem Grunde wird in Zeile 1910 der Zeiger auf den 
einzugebenden Satz rt in ri und r2 übertragen. Wurde schon 
ein Satz eingegeben (rt größer null), wird ri dekrementiert, 
sodaß die Felder des zuletzt eingegebenen Satzes angezeigt 
werden. Ab Zeile 1930 wird abgefragt, ob abgebrochen (a$ = 
"q"), korrigiert (a$ = "k"), beendet (a ungleich 13) oder 
weitergemacht werden soll. Ist a = 13, wird in Zeile 1970 


getestet, ob die maximale Satzzahl erreicht wurde. 


BLÄTTERN (2000) 


Mit Hilfe der Laufvariablen ri werden über das Unterprogramm 
"Felder ausgeben" die einzelnen Datensätze angezeigt und 
dann die Tastatur über die "Warteschleife" (1010) abgefragt. 
Entsprechend der Eingabe wird weitergeblättert (2100), zum 
Menue zurückgekehrt (2070) oder in das Unterprogramm 
"Ändern" (2080) verzweigt. 


DATEI PFLEGEN (2130) 


Nach Abfrage von fl und BildschirmPOKE werden die Suchflags 
(s£f(i)) auf null gesetzt (2150). Über die "Warteschleife" 
wird ab Zeile 2190 abgefragt, ab welchem Feld gesucht werden 
soll. Wurde eine gültige, noch nicht gewählte Feldnummer 
eingegeben (der Test dafür ist in Zeile 2220 - 2230), wird 
in Zeile 2240 die aktuelle Cursorzeile in d6 gerettet und in 
Zeile 2250 die Feldbezeichnung des gewünschten Feldes 


ausgedruckt. 
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Über das Unterprogramm "Suchform wählen" ab Zeile 3710 wird 
der Index der gewünschten Suchform in das entsprechende 


Suchflag eingelesen. 


Mit Hilfe der geretteten Cursorzeile (d6) wird dann in Zeile 
2260 das entsprechende Suchformzeichen vor die 
Feldbezeichnung gesetzt und zur Abfrage nach weiteren 


Suchfeldern zurückgesprungen. 


In den Zeilen 2262 - 2267 wird die gewünschte Anzahl der 
Übereinstimmungen in ue geschrieben. Über die Zeilen 
2280 - 2360 werden die Suchstrings in das Feld s$(f) 


eingelesen. 


Da die eigentliche Suchroutine in jedem Datensatz die Felder 
von einem Startfeld bis zu einem Endfeld untersucht, wird in 
Zeile 2372 - 2378 der niedrigste und höchste Feldindex 
festgestellt und in fb, fe gerettet, um so die Suchzeit zu 
optimieren. 


Die Hauptsuchschleife über die einzelnen Datensätze beginnt 
ab Zeile 2380. In Zeile 2390 werden die zu untersuchenden 
Strings in das Feld u$(i) übertragen. In der Zeile 2410 wird 
der Index für gefundene Übereinstimmungen n auf null und £ 
auf das Startfeld gesetzt, bevor in die eigentliche 


Suchroutine ab Zeile 100 gesprungen wird. 


Die Suchroutine liegt aus Zeitgründen am Programmanfang, da 
die Zieladresse nach einem Sprung (GOTO, GOSUB) entweder 
hinter der aufrufenden Zeile oder ab Programnmanfang gesucht 
wird. Würde die Routine am Programmende liegen, müßte bei 
einem Sprung in eine vorherige Zeile immer das ganze 
Programm nach der Zielzeilennummer durchsucht werden, was 


bei längeren Dateien die Suchzeit merklich verlängern würde. 


Am Anfang der Suchroutine wird getestet, ob schon alle 
gewünschten Felder durchsucht wurden, oder ob die gewünschte 
Anzahl der Übereinstimmungen gefunden wurde. Ist dies nicht 
der Fall, wird über das Feld sf(f) der gewünschte Vergleich 
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angesprungen. 


Ist der entsprechende Vergleich logisch wahr, wird der 
Übereinstimmungszähler erhöht. Nachdem der Feldindex f 
erhöht wurde, wird zum Start zurückgesprungen. Nach dem 
Rücksprung in die Zeile 2410 wird, wenn die gewünschte 
Übereinstimmungszahl erreicht wurde, die Datensatznummer in 
das Feld gf%(z) geschrieben und die Trefferzahl z 


inkrementiert. 


Nach Abschluß des Suchens werden die Treffer analog zum 


Unterprogramm "Blättern" angezeigt (2430 - 2550). 


LISTE AUSGEBEN (2690 - 2970) 


Diese Routine gibt die durch das Feld gf%(i) bestimmten 
Datensätze entweder auf den Bildschirm oder dem Drucker aus. 
Die Abfrage nach den auszudruckenden Feldern ist analog zu 


der Feldbestimmung im Unterprogramm "Suchen". 


SORTIEREN (2980 - 3510) 


Nach der Abfrage, ob eine Liste erstellt wurde und nach der 
Ausgabe der Überschrift auf den Bildschirm (2990 - 3000) 
wird das Feld, nach dem sortiert werden soll, abgefragt, und 


der entsprechende Index in sf geschrieben. 


Für die folgende Sortierroutine werden einige Hilfsfelder 
benötigt, deren Größe vom Listenumfang abhängt. Da Felder 
aber normalerweise nur einmal dimensioniert werden dürfen, 
hätte ich bei der Initialisierung die Hilfsfelder n$(i) und 
z(i) mit der maximalen Datensatzanzahl dimensionieren 
müssen. Das würde einerseits viel Speicherplatz schlucken 
und andererseits die Lade- und Speicherzeit vom bzw. auf 
Band verlängern. Mit einem Kunstgriff ist es aber möglich, 
Fehler selektiv zu löschen und somit redimensionierbar zu 


machen. 
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Dieser Kunstgriff besteht darin, vor einer neuen 
Dimensionierung die Ober- und Untergrenze des Bereiches, in 
dem der Computer die Felder ablegt zu retten. Die danach 
dimensionierten Felder können dann durch Rücksetzen der 


Zeiger auf die alte Länge der Feldertabelle gelöscht werden. 


Aus diesem Grunde werden in den Zeilen 3040 und 3050 die 
Zeiger auf den Start und das Ende der Feldertabelle in fi 
und fh gerettet. 


In der Zeile 3060 werden die Hilfsfelder entsprechend des 


Listenumfangs dimensioniert. 


Durch die Schleife in den Zeilen 3070 bis 3090 wird das 
entsprechende Datensatzfeld eines jeden in der Liste 
befindlichen Datensatzes in n$(i) übertragen. Dieses 
Stringfeld wird später sortiert. Damit danach die 
entsprechenden anderen Felder eines Datensatzes dem 
sortierten Feld zugeordnet werden können, wird in z(i) ein 
"Pointer" angelegt, der die Position des entsprechenden 


Datensatzes innerhalb der Liste enthält. 


Die Sortierroutine verarbeitet nur Felder mit Indizes ab 
eins. Im Datenfeld e$(f,r) sind die Datenfelder aber ab 
Index null abgespeichert. Aus diesem Grund müssen die Daten 
und der Pointer jeweils in eine Feldvariable mit einem 
Index, der um eins höher ist als der im Datenfeld, 


umgespeichert werden. 


Bei der Umspeicherroutine wird der erhöhte Index dreimal 
benötigt (Index von n$, Index von z, Pointer in z). Damit 
innerhalb der Umspeicherschleife nicht dreimal "i+1" 
berechnet werden muß, habe ich aus Zeitgründen eine 
Hilfsvariable q definiert, die innerhalb der Schleife nur 


einmal inkrementiert werden muß. 


In Zeile 3100 wird in die Sortierroutine (3240 - 3510) 
verzweigt. Diese Routine sortiert das eindimensionale Feld 
n$(i) durch entsprechendes Vertauschen der Inhalte von 
n$(i). Bei jedem Tauschvorgang wird auch der Inhalt des 
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Pointers vertauscht. Am besten wird dies durch ein Beispiel 
klar. Nehmen wir an, fünf Namen sollen sortiert werden, die 


in folgender Reihenfolge in den Feldern stehen: 


l 
DB» wWDND oo 


n$(1) Max z(1) 
n$(2) Alfred z(2) 
n$(3) = Peter z(3) 
n$(4) Dirk z(4) 


u 
u 


Nach dem.Sortieren erhalten wir: 


n$(1) = Alfred z(1) = 2 
n$(2) = Dirk z(2) =4 
n$(3) = Max z(3) = 1 
n$(4) = Peter z(4) = 3 


Der Index von z gibt nun die aufsteigende Reihenfolge der 
sortierten Strings an und der Inhalt von jedem z die 
Datensatznummer, die an der entsprechenden Position stehen 
muß. 


In der Schleife Zeile 3110 - 3200 werden die Datenfelder 


entsprechend dem Pointer vertauscht. 


Die äußere Schleife zählt über die Felder. In der ersten 
inneren Schleife wird das entsprechende Feld (durch x 
bestimmt) aller Datensätze in der alten Reihenfolge in das 


Feld n$(i) übertragen. 


In der zweiten inneren Schleife werden dann die Inhalte von 
n$(i) entsprechend dem Pointer z(i) in das Datenfeld 


sortiert zurückgeschrieben. 


Ab Zeile 3210 werden die Hilfsfelder wieder gelöscht. Zuerst 
werden die Strings gelöscht, um den Stringvektor im Merkheft 
des Rechners zurückzusetzen. Über das Unterprogramm in den 
Zeilen 3520 - 3540 wird zu dem aktuellen Start der 
Feldertabelle die gerettete Länge addiert und als 
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Feldertabellenende in den Vektor 49, 50 geschrieben. 


Ich hoffe, daß Ihnen nun die Arbeitsweise dieses Programms 
einigermaßen klargeworden ist und Sie nun wissen, wo und wie 
Sie dieses Programm Ihren eigenen Wünschen noch besser 
anpassen können. Ich könnte mir z.B. noch folgende 


Anpassungen denken: 


- Druckerausgabe; der Datei entsprechend formatierte 
Ausgabe. 


- Helpseite; diese Bildschirmausgabe könnte man auf 
einer separaten Bildschirmseite schreiben, die dann 
mit Hilfe von POKE-Befehlen mit der aktuellen 
Bildschirmseite ausgetauscht wird. Das ist eine 
Anpassung, die besonders für c-64 Anwender 
interessant ist; hier könnte man die zusätzliche 
Bildschirmseite unter das Betriebssystem-ROM (ab 
$A0O00) schreiben, sodaß kein Basic-Speicherplatz 


verlorengeht. 
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14. CC-INHALT UND KATALOG FÜR FASTTAPE-CASSETTEN 


Im Kapitel 7 habe ich Ihnen ein Programm beschrieben, das 
ein Inhaltsverzeichnis Ihrer Cassetten erstellt. Solch eine 
Inhaltsübersicht möchten Sie sich bestimmt auch für Ihre 
FastTape-Cassetten anlegen. Darum finden Sie hier ein 


Listing eines Programms, welches genauso arbeitet wie das in 


Kapitel 7. 


90 REMRRURRRRRURERT NN HN NN HINTEN 

95 REM* 

100 REMx INHALTSVERZEICHNIS 

101 REM« 

103 REM® VON FASTTAPE CASSETTEN 

104 REM* 

105 REM* (C) DIRK PAULISSEN 

106 REM* 

107 REMERRRRERRRRHUN THE NN RER 

108 REM V=.7:KL=.54 :REM KONSTANTEN FUER ZAEHLERBERECHNU 
NGEN C60 

109 V=.5:KL=.482:REM KONSTANTEN FUER ZAEHLERBERECHNUNGEN 
c90 

110 PA=828: REM STARTADRESSE IM CASSETTENPUFFER 

115 SA=171 :REM SEKUNDAERADRESSE +1 

116 PRINT" LCLEAR,SPACE11IINHALTSVERZEICHNIS" 

117 PRINT:PRINT" FUER FASTTAPE CASSETTEN" 

120 PRINT"LDOWNZIDRUCKEN ? LJ/NI "5D$ 

130 GET D$: IF D$=""THEN 130 

136 TA$=CHR$ (16) 

140 T1$=TA$+"05": T2$=TA$+" 10": TS$=TA$+" 19": T4$=TA$+"27" 
: T5$=TA$+"35" 

142 T6$=TA$+"43": T7$=TA$+"61":REM TAB’S 

145 IF D$<>"J"THEN 170 

150 OPEN 2,4 :REM DRUCKER OEFFNEN 

160 PRINT#2,T1$"LFN"; T2$" ZAEHLER" ; T3$"K-BYTE";T4$" ANFAN 
B"TS$" ENDE"; 


KK KK KK 
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162 PRINT#2,T6$" NAME" T7$"SEKADR." 
165 PRINT#2 
190 SYS 49674:REM VC20 = 29183 


200 A$=":"+RIGHT$(" "+STR$ (PEEK (PA) + (256*PEEK (PA+1)) 
-1),6) 

210 B$="C"+RIGHT$(" "+STR$ (PEEK (PA+2) + (256*PEEK (PA+3) 
)-1),6) 

220 C$=": ":FOR 1=5 TO 20:C$=C$+CHR$ (PEEK (PA+T)) NEXT 
:C$=C$+":" 


230 T=VAL (RIGHT$ (B$,5)) -VAL (RIGHT$ (A$,5)) 
:K$=STR$ (INT (T/1024*1000+.5) 7/1000) 
235 K$=RIGHT$&(" "+STR$ (INT(T/1024*1000+.5) 7/1000) ,6) 
240 SA$=STR$ (PEEK (SA) -1) 
250 PRINT Z;K$A$E$: PRINT C$:PRINT 
252 FA=1+2%*%*(72/4400):REM ABHAENGIGER FAKTOR ZUR ZAEHLER 
BERECHNUNG 
255 Z1=2:7=INT (Z+V*FA+(T/1024)*(KL*FA)) 
:REM BANDZAEHLER BERECHNEN 
256 PRINT"NACHSTER ZAEHLERSTAND CA. "Z 


260 N=N+1:N$=RIGHT$(" "+STR$ (N) ‚„3) 
270 IF D$="J"THEN PRINT#2,T1$; N$; T2$;5 215 T3$; K$5 T48; A$; TS$ 
; B$; T6$; C$; T7$5A$ 


300 GOTO 190 


Das in Kapitel 10.1 beschriebene Katalogprogramm arbeitet 
nach entsprechender Änderung ebenfalls mit FastTape. 


Sie müssen nur die normalen LOAD-Befehle gegen 
FastTape-Befehle austauschen. Da die Synchronisation bei 
FastTape-Programmen bedeutend kürzer ist als bei normal 
abgespeicherten Programmen, empfiehlt es sich, die Programme 
nicht direkt hintereinander abzuspeichern, sondern jeweils 
ca. 5 sec Zwischenraum zu lassen. 
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15. BACKUP VON DISK AUF CC UND UMGEKEHRT 


Dieses Kapitel ist für diejenigen bestimmt, die sowohl ein 
Diskettengerät besitzen als auch einen Datenrecorder. Eine 
Datencassette ist bedeutend robuster und weniger 
störungsanfällig als eine Diskette. Darum lohnt es sich auch 
für einen Diskettenbesitzer, wichtige Programme auf Cassette 
zu speichern. Auch gibt es viele, die selbst nur einen 
Cassettenrecorder haben, aber einen Freund besitzen, der 
eine Diskettenstation hat. Mit den folgenden Programmen ist 
es nun viel einfacher, Programme untereinander 


auszutauschen. 


15.1 BACKUP VON CASSETTE AUF DISK 


Mit diesem Backup-Programm haben Sie die Möglichkeit, 
mehrere FastTape-Programme, die hintereinander auf einer 
Cassette gespeichert sind, auf eine Diskette umzuspeichern. 


Für das Programm ist es unerheblich, ob es sich um Basic- 
oder Maschinensprache-Programme handelt. Die Programme 
werden alle so kopiert, daß sie voll lauffähig sind, egal 
von welchem Speichermedium Sie es wieder einladen. Wichtig 
ist nur, daß alle Programme, die Sie kopieren wollen, einen 
Namen haben, da die Diskettenstation im Gegensatz zum 


Datenrecorder namenlose Files nicht akzeptiert. 

Da das Backup-Programm mit FastTape arbeitet, müssen Sie das 
FastTape-Programm laden, bevor Sie das Backup-Programm 
starten. 


Die Bedienung ist denkbar einfach. 


Geben Sie das Programm in Ihren Rechner ein und speichern 


Sie es vor dem Starten ab, da es sich selber nach dem 


153 


Starten löscht. Wenn Sie nun das Programm starten, wird 
zuerst das Maschinenprogramm in den Speicher ab $c3cO 
($73CO0) hinter das FastTape-Programm geschrieben. Dann 
werden Sie nach der Anzahl der zu kopierenden Programme 
gefragt. Dieser Wert wird in der Speicherstelle 767 für das 
Maschinenprogramm zwischengespeichert. 


Als nächstes müssen Sie eine formatierte Diskette in das 
Diskettenlaufwerk und die Cassette mit den zu kopierenden 
Programmen in den Datenrecorder legen. Nach Drücken der 
RETURN-Taste verzweigt das Basic-Programm in das 
Maschinenprogramm. Dies liest nun das erste Programm in den 
Basicram (der komplette Basicram wird als Puffer benutzt). 
Danach wird das Programm aus dem Speicher auf Diskette 
geschrieben. Dieser Vorgang wird nun der Anzahl der 
Programme entsprechend wiederholt. Am Ende kehrt der Rechner 


wieder in den Direktmodus zurück. 


Wollen Sie nun noch weitere Programme kopieren, müssen Sie 
die Programmanzahl in die Speicherstelle 767 POKEn und das 
Maschinenprogramm erneut durch SYS 50112 (SYS 28672 beim 
VC 20) starten. 
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BACKUP T=>D 


85: C3C® 
86: CSCO 
998: CSCO 


106: C3SCO 
110: C3SCO 
110: C3Co 


159: CICEO 
150: C3CO 
150: C3CO 
1590: C3C® 


157: 

160: c3Co 
160: CSC® 
200: @90D 
205: 90082 
210: B9AC 
220: @OAE 


2530: 033C 
240: ®2FF 
245: 0893 
250: CI8E 
260: A642 
279: A437 
280: F693 
290: CSCO 
290: cC3CO 
300: FFB7 
319: FFBA 
320: FFBD 
325: FFCO 
330: FFC3 
335: FFC? 
340: FFCC 
350: FFD2 
959: c3C0 
950: C3Co 
955: C3CO 
955: C3SCO 


970: CSCO 
970: C3Co 
1080: CI3CO 
1018: CSC2 
1620: CS3SCS 
1058: CICB 
1049: CSCB 
1859: CISCE 
10680: CS3DO® 
1078: C3SDS 
1882: CSD4 
1082: CISD4 


PROFI-ASS 64 V2.0 


00 
42 
79 
D4 
FF 


co 


A& 
c4 
CS 
02 


c3 


.FA 
.TI 
.op 
*= 


SEITE 1 


BG 61 
T 
T P2,01 

$C3CO 


"BACKUP T=>D" 


;vCc20 


= $73C0 


KERRKRKHRKRHHRHHRTHTHHHH HN HH H RN RR 


eu 
KK 


BACKUP VON CC AUF DIKETTE 


MIT FASTTAPE 


EEE Ze Ze Ze 3 


KERKURRKHRRHHHHKHR N HH NH HE HH HR 


FÜR vc 28 
CR = 13 
ABSFLG = 2 
STARTV = sSAC 
ENDVEC = $AE 
CASPUF = $S33C 
ANZAHL = s2FF 
CSTART = $8053 
LOADR = SC18E 
NEW = $As42 
ERROR = $A4537 
MSSG = $F6953 
STATUS = sFFB7 
SETLFS = sFFBA 
SETNAM = $FFBD 
OPEN = $FFCO 
CLOSE = SFFCS 
CHKOUT = S$FFC9 
ELRCH = $SFFCC 
BSOUT = $FFD2 
; HAUPTPROGRAMM 
START LDA #$00 
JSR NEW 
JSR CLOAD 
JSR DSAVE 
DET ANZAHL 
BEQ ENDE 
JMP START 
ENDE RTS 
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- 


Pre EEE 


AUSDRUECKE IN KLAMMERN GELTEN 


($1293) 
($7188) 
($C642) 
($C4537) 
($F72C) 


PUFFERSTART 
FASTTAPE LADEN 
BASIC-BEF. NEW 
BASIC-WARMSTART 
MELDUNG AUSGEBEN 


BACKUP T=>D 


1084: 
1084: 
1986: 
1088: 
1988: 
1089: 
1098: 
1992: 
10953: 
1095: 
1100: 
1119: 
1120: 
1130: 
1140: 
1150: 
1169: 
1170: 
1180: 
1190: 
1200: 
1210: 
1220: 
12350: 
1240: 
1250: 
1260: 
1270: 
1280: 
1290: 
1398: 
1310: 
1320: 
1330: 
1340: 
1350: 
1360: 
1370: 
1380: 
1390: 
1400: 
1410: 
1420: 
1430: 
1440: 
1450: 
1460: 
1470: 
1480: 
1499: 
1500: 
1510: 
1520: 
1538: 
15490: 
1559: 
1560: 
1570: 
1580: 


c3D4 
C3D4 


C35D4 
c3D4 
C3D4 
C3D& 
C3D8 
C35DA 
C3DD 
CSEO 
C3E2 
C3SES 
C3E7 
CIEB 
CSEB 
CSED 
CSEF 
C3F1 
CISF3 
C3SF4 
E3F& 
C3SF9 
C3FA 
CSFC 
U3SFF 
c408 
c402 
C405 
C486 
c428 
C40B 
C40C 
C40D 
c4oF 
cal 
c414 
C416 
c418 
C41A 
C41D 
C429 
C422 
C425 
c427 
C429 
C42B 
C42D 
C430 
c431 
c434 
C435 
C436 
c438 
C43A 
C43D 
CASF 
C440 
C443 


PROFI-ASS 64 V2.0 


10 
a1 
03 
BD 
93 
eD 
D2 
10 


41 
20 
04 
[7] 


2C 


a1 


50 
41 


2C 
41 


57 
41 


FF 
Fö 


FF 


03 


03 


FF 


FF 


FF 


03 


03 


03 


03 


SEITE 


; AUF DISK SPEICHERN 


DSAVE 


ELOOP 


ENDNAM 


LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JSR 
LDX 
DEX 
LDA 
cMP 
BNE 
cPX 
BNE 
INX 
LDA 
STA 
INX 
LDA 
STA 
INX 
LDA 
STA 
INX 
LDA 
STA 
INX 
TXA 
LDX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDX 
JSR 
LDA 
LDX 
STA 
STX 
LDA 
SEC 
SBC 
PHP 
CLC 
ADC 
STA 
LDA 
ADC 
PLP 
SBC 
STA 


#519 
#541 
#303 
SETNAM 
MSSG 
#CR 
BSOUT 
#$10 


CASPUF+S, X 


#420 
ENDNAM 
#500 
ELOOP 


#"," 


CASPUF+5, X 


ep" 


CASPUF+S,X 


a," 


CASPUF+5, X 


FORD) 


CASPUF+5, X 


#541 
#505 
SETNAM 
#508 
#308 
#$01 
SETLFS 
OPEN 
#08 
CHKOUT 
#<CSTART 
#>CSTART 
STARTV 
STARTV+1 
CASPUF+2 


CASPUF 
STARTV 
ENDVEC 
CASPUF+3 
STARTV+1 


CASPUF+1 
ENDVEC+1 
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. 


- 


wo 


u. 


NAMENPARAMETER 
SETZEN 


” SAVING NAME ” AUSGEBEN 


NEUE ZEILE 


ENDE DES FILENAMEN 
SUCHEN UND ” ,„P,W 


ANHAENGEN 


LAENGE DES FILENAMEN 
STARTADR DES Ic 
FILENUMMER 
GERAETENUMMER 
SECUNDAERADR. 


5 ENDADRESSE BERECHNEN 

AUS DIFFERENZ START- + ENDADR. 
AUS DEM HEADER PLUS BESTIMMTER 
STARTADERSSE 


BACKUP T=>D 


1598: C445 
1600: C448 
1619: C44B 
1620: C44E 
1622: C451 
1622: C4aS1 
1623: 

1624: C451 
1624: C451 
1650: C451 
1648: (453 
1650: C455 
16606: C458 
1679: C45A 
1680: C4SC 
1698: CASE 
1780: C460 
1719: C462 
1720: C464 
1730: C466 
1749: C468 
1759: C46B 
1760: C4A6D 
1762: [470 
1762: 470 
1764: C470 
1764: C470 
1766: 

1768: C470 
1768: C470 
17790: C470 
1780: C472 
1799: C474 
180880: [476 
1819: C478 
1820: C47A 
1830: C47C 
1840: LCATE 
1850: C480 
1860: C482 
1879: C484 
1880: [487 
1898: [489 
1900: C48B 
1910: C48E 
1922: C491 
1922: C491 
1924: 

1926: C491 
1926: C491 
1930: 1491 
19480: [494 
1950: C496 
1960: [498 
1979: C49A 
1988: C49D 
ÜC3CO-C49E 


AD 
20 
AD 
20 


ao 
Bi 
20 
E6 
De 
E& 
AS 
c5 
AS 
ES 
99 
20 


AC 


PROFI-ASS 64 V2.0 SEITE 3 
sc 83 LDA CASPUF ; PROGRAMMSTARTADR. 
D2 FF JSR BSOUT ; ZUR DISK SENDEN 
SD 03 LDA CASPUF+1 
D2 FF JSR BSOUT 
; SPEICHERSCHLEIFE 
oo PSAVE LDY #300 
AC LDA (STARTVW),Y 
D2 FF JSR BSOUT 
ACc INC STARTV ; ADRESSE ERHOEHEN 
02 BNE NOTHI 
AD INC STARTV+1 
Ac NOTHI LDA STARTV 
AE CMP ENDVEC ; ENDADRESSE ERREICHT 
AD LDA STARTV+1 
AF SBC ENDVEC+1 
EI BCC PSAVE 
cc FF JSR CLRCH 
08 LDA #398 
Cc3 FF JMP  CLOSE 
; VON CC LADEN 
08 CLOAD LDX #300 
03 LDY #<CSTART 
08 LDA #>CSTART 
en STX  $8A ; LOAD/VERIFY FLAG 
93 STX 893 
AC STY s$AC 
AD STA $AD 
05 LDA #1+4 ; AN BESTIMMTE ADRESSE, 
02 STA ABSFLG 3; NICHT WARTEN 
898 LDA #308 ; KEINEN FILENAMEN 
BD FF JSR SETNAM 
e1 LDX #801 ; 6A 
00 LDY #300 ; 5A 
BA FF JSR SETLFS 
8E C1 JSR LOADR 
; STATUS TESTEN 
B7 FF HOLSTA JSR STATUS 
BF AND #$BF 
05 BEQ OK 
1D LDX #$1D 
37 #4 JMP ERROR 
OK RTS 
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100 
119 


120 
130 
140 
150 
166 
178 
189 
199 
208 
210 
220 


230 


GOSUR 246 

PRINT" [CLEAR TER LLEFT2, DOWNI#LUP 
I" 

PRINT" LUPI*BACKUP MIT FASTTAPE **[LEFT2,DOWNJ#"5 
FRINT"* VON CC AUF DISK *##I[ILEFT2,DOWNIJI#"5 
PRINT"*(C) DIRK FPAULISSEN *#[LEFT2,DOWNI#"; 
PRINTVRRRRHRRRRRRRRHR RR TRRR" 
FRINT:FRINT:FRINT"WIEVIELE PROGRAMME WOLLEN SIE" 
FRINT: INFUT"COPIEREN "5AZ 

POKE 767,AZ 

PRINT:FRINT:FRINT"LEGEN SIE DIE QUELLCASSETTE EIN” 
FRINT"LDOWNJUND DRUECKEN SIE << RETURN >>" 

GET A$: IF A$< >CHR$(1S) THEN 210 

SYS 29632 

END 


ERKKERKRRRHRHHRRHNTTHH HH HN HH HH HH HH HH HH N HR HERR RR RR 


240 


REM LADEFROGRAMM FASTCOPY T-D 20 


KERKERKHRRRRRRRRRKHHHH HR HH HER HR HH HN HIERHER HERREN RK RR HR 


250 


269 


2808 


296 


366 


318 


326 


330 


348 


350 


368 


370 


=29853: A=29632: PS=® 

FOR I=A TO E:READ X:POKE 1,X:PS=PS+X:NEXT 

IF PS<>27173 THEN PRINT"FEHLER IN DATAS":END 

RETURN 

DATA 169,0,32,66,198,32,112,116,32,212,115, 206, 255, 2 
‚248,3,76,192,115,96 

DATA 169,16,162,65, 160,3,32, 189,255, 32,44, 247,169,13, 
32,210, 255,162, 16,282 

DATA 189,65,3,201,32,208,4,224,0,208,244,232,169,44, 

157,65, 3,232,169,8® 

DATA 157,65,3,232,169,44,157,65,3,232,169,87,157,65, 

3,232,138,162,65, 160 

DATA 3,32,189,255,169,8,162,8,160,1,32,186,255,32,19 
2,255,162,8,32, 201,255 

DATA 169,3,162,18,133, 172,134, 173,173,62,3,56,237,60, 
3,8,24,101,172,133 

DATA 174,173,63,3,101,173,40,237,61,3, 133,175, 173,6® 
‚„3,32,21@,255, 173,61 

DATA 3,32,210,255,160,0,177,172,32,210, 255, 230, 172,2 

08, 2,230, 173,165,172 


158 


490 


410 


DATA 197,174,165,173,229,175,144,232,32,264,255,169, 
8,76, 195,255, 162,0,16® 

DATA 3,169,18,134,10,134,147,132,172,133,173,169,5,1 
33,2,169,0,32,189,255 

DATA 162,1,160,0,32,186,255,32,136, 113,32, 183, 255,41, 
191,240,5,162,29,76 

DATA 55,196,96 


159 


190 
119 


128 


130 


140 


150 
160 
170 
189 
199 
280 
2190 
220 
250 


GOSUB 240 

PRINT "TCLEAR TR HHR NR HN HH RR HE IHR HH HR HH HR RR 
*LLEFT, DOWNI#LURI%*" 

PRINT"* BACKUP MIT FASTTAPE *#*[LEFT 
2, DOWNI«"5 

PRINT"* VON CASSETTE AUF DISKETTE **[LLEFT 
2, DOWNI*"5 

PRINT"* (C) DIRK PAULISSEN **[LLEFT 


2,DOWNIx";5 

PRINT" RRRHHRRRHRHFN THE HH NH IHRER HH RR" 
PRINT:PRINT:PRINT"WIEVIELE PROGRAMME WOLLEN SIE" 
PRINT: INPUT"COPIEREN "5AZ 

POKE 767,AZ 

PRINT:PRINT:PRINT"LEGEN SIE DIE QELLCASSETTE EIN" 
PRINT"LDOWNJUND DRUECKEN SIE << RETURN >>" 

GET A$: IF A$<>CHR$ (13) THEN 210 

syS 50112 

END 


KERKRRRKRRKRRRNRTRHTHH NH TRIER KETTE TRIERER EHER TER HIER HH HH HR 


240 


REM LADEFROGRAMM FASTCOPY T-D 64 


KRERREKRNKRERKRIRKRKTR HR TER RER 


259 


260 


270 


280 


290 


390 


3108 


320 


330 


340 


350 


E=50333: A=50112:PS=® 

FOR I=A TO E:READ X:POKE I,X:PS=PS+X:NEXT 

IF PS<>27517 THEN PRINT"FEHLER IN DATAS":END 

RETURN 

DATA 169,0,32,66,166,32,112,196,32,212,195, 206, 255,2 
‚240,3,76,192,195,96 

DATA 169,16,162,65,160,3,32,189, 255,32, 147,246,169,1 
3,32,210, 255, 162,16 

DATA 202,189,65,3,201,32,208,4,224,0,208,244,232,169, 
44,157,65,3,232,169 

DATA 80,157,65,3,232,169,44,157,65,3,232,169,87,157, 
65,3,232, 138, 162,65 

DATA 160,3,32,189,255,169,8,162,8,166,1,32,186, 255,3 
2,192,255,162,8,32,261 

DATA 255,169,3,162,8,133, 172,134, 173, 173,62,3,56, 237, 
60,3,8,24,101,172, 133 

DATA 174,173,63,3,191,173,40,237,61,3,133,175, 173,60 


160 


408 


‚„3,32,216,255,173,61 
DATA 3,32, 210,255, 160,0,177,172,32,210, 255,230, 172,2 

08,2, 230,173, 165,172 

DATA 197,174,165,173,229,175,144,233,32,204,255,169, 

8,76, 195, 255,162, 0,160 

DATA 3,169,8,134,10,134,147,132,172,133,173,169,5,13 
3,2,169, 0,32, 189,255 

DATA 162,1,160,0,32,186, 255,32, 142, 193,32, 183,255, 41, 
191,240,5,162,29,76 

DATA 55,164,96 


161 


15.2 PROGRAMMBESCHREIBUNG BACKUP CC-DISK 


Für diejenigen Leser, die zumindest Grundkenntnisse in 
ASSEMBLER-Programmierung haben, möchte ich das 
ASSEMBLER-Listing etwas näher erklären. 


Die Hauptschleife des Programms steht ab $C30CO bis $C3D3. 
Zuerst werden durch den NEW-Befehl alle Basic-Vektoren 
zurückgesetzt. Dann wird zur Cassettenloadroutine CLOAD 
verzweigt; nach der Ausführung dieses Unterprogramms wird 
das Programm durch DSAVE auf Disk gespeichert. Nachdem 
ANZAHL dekrementiert und getestet wurde, wird zum Start 


zurückgesprungen. 


CLOAD ($C469) 


Der Pufferstart CSTART wird in die Speicherstellen $AC, $AD 
übertragen. Aus diesen Speicherstellen holt sich FastTape 
die erforderliche Ladeadresse. Weiterhin werden die 
LOAD/VERIFY-Flags auf O = LOAD gesetzt. Durch das Setzen von 
Bit null und zwei in ABSFLG wird das FastTape-Programm 
veranlaßt, an die Adresse zu laden, die in $AC und $AD 
übergeben wird, und nach dem Finden des Programms nicht zu 


stoppen. 


Ab $C47B werden die notwendigen Vorbereitungsroutinen des 
Betriebssystems SETNAM und SETLFS aufgerufen. 


Danach wird zum FastTape-Unterprogramm LOADR verzweigt. Nach 
dem Ladevorgang wird der STATUS getestet und in die 


Hauptschleife zurückgesprungen. 


DSAVE 


Das Speichern auf Diskette ist etwas komplizierter. Zuerst 
wird über Betriebssystemroutinen "SAVING name" ausgegeben. 
Von $C3DE bis $C3EA wird das Ende des Filenamens, der im 
Cassettenpuffer steht, festgestellt, indem vom Ende her 
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solange auf "SPACE" getestet wird, bis ein anderes Zeichen 


gefunden wird. 


In den folgenden Zeilen bis $C401 wird ",P,W" (Programm, 
Write) an den Filenamen angehängt. Über das X-Register wird 


die Länge des kompletten Filenamen bestimmt. 


Ab $%C465 beginnen die notwendigen Vorbereitungsroutinen zur 
Diskettenspeicherung SETNAM, SETLFS, OPEN, CHKOUT. Danach 
wird der Startvektor wieder auf den Pufferstart gesetzt. Die 
Endadresse des eingeladenen Programms wird aus der Differenz 
von Start und Endadresse aus dem Cassettenpuffer plus 
Startadresse des Puffers berechnet ($C426 - $C43C). Bei der 
Diskettenspeicherung geben die ersten beiden Bytes die 
Adresse an, von der es abgespeichert wurde. Diese Adresse 
Steht als Startadresse im Cassettenpuffer. Sie wird in 
$CH3E - $C447 an die Diskette übermittelt. 


Ab PSAVE ($C44A) beginnt die eigentliche 
Programmspeicherung. In das Y-Register wird O geladen, und 
die Programmbytes werden indirekt-indiziert in den 
Akkumulator geladen und über BASOUT an die Diskettenstation 
gesandt. Danach wird der Startvektor inkrementiert und mit 
dem Endvektor verglichen. Sind sie nicht gleich, wird wieder 


nach PSAVE gesprungen. 


Sind die Vektoren gleich, wird der Diskettenausgabekanal 


geschlossen und zur Hauptschleife zurückgesprungen. 


15.3 BACKUP VON DISKETTE AUF CASSETTE 


Mit diesem Programm haben Sie die Möglichkeit, sehr 
komfortabel ein oder mehrere Programme von einer Diskette 
auf eine oder mehrere Cassetten zu übertragen. Die Eingabe 
erfolgt über einen Basiclader, den Sie am Anschluß an die 
Programmbeschreibung finden. Vergessen Sie auch bei diesem 


Basiclader nicht, ihn vor dem Starten abzuspeichern. 
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Dieses Programm läuft ebenfalls nur, wenn Sie FastTape schon 


geladen haben. 


BEDIENUNG DES PROGRAMMS 


Gestartet wird das Programm durch SYS 50176 (SYS 29696 beim 
VC 20). Sofort erscheint der Titel auf dem Bildschirm, und 
Sie werden gebeten, die Quelldiskette einzulegen und eine 


Taste durchzudrücken. 


Nach kurzer Zeit erscheint der Diskettentitel und der erste 
Fileeintrag des Disketteninhaltsverzeichnisses mit der Frage 
JA/NEIN. Wenn Sie das Programm kopieren wollen, drücken Sie 
"J", und es erscheint JA hinter dem Fileeintrag. Dann wird 
der nächste Eintrag angezeigt. Wollen Sie ein Programm nicht 
kopieren, drücken Sie "N", und der Eintrag wird mit NEIN 
gekennzeichnet. Auf diese Weise können Sie bis zu 48 


Programme mit JA kennzeichnen. 


Falls Sie sich innerhalb des Programms einmal vertippen, 
können Sie durch Drücken der RUN/STOP-Taste immer das 
Programm abbrechen und zur Titelseite zurückkehren. 


Wenn Sie das ganze Inhaltsverzeichnis bearbeitet haben, 
werden Sie gefragt, ob Sie die Programme einzeln oder 
durchgehend kopieren wollen. Möchten Sie alle Programme auf 
einer Diskette speichern, geben sie "1" ein. Wenn Sie eine 
u eingeben, sagt Ihnen der Computer immer, welches 
Programm er als nächstes einliest und wartet auf einen 
Tastendruck. Damit ist es möglich, für jedes Programm eine 


andere Cassette einzulegen. 


Am Ende des Kopiervorgangs kehrt der Rechner wieder zur 
Titelseite zurück. Sie haben dann die Möglichkeit, eine neue 
Diskette zu kopieren oder durch Drücken von "E" ins Basic 


zurückzukehren. 


164 


69: 


134: 


136: 


142: 
145: 
145: 
159: 
152: 
154: 
156: 
158: 
180: 
162: 
164: 
169: 
169: 
169: 
170: 
180: 
190: 
208: 
210: 
220: 
230: 
248: 
250: 
268: 
280: 
290: 
309: 
300: 
309: 
S20: 
330: 
340: 
350: 
368: 
370: 
380: 
390: 
409: 
410: 
420: 
430: 
440: 


C490 


c488 


C409 


C400 
C400 
C488 
C400 
C400 
c488 
C498 
C400 
C490 
C408 
c4908 
C428 
C490 
c4008 
C400 
c480 
C498 
C408 
C408 
C488 
C480 
C408 
C406 
14008 
C4008 
C480 
C400 
c490 
C490 
C498 
C490 
C498 
C490 
C490 
c4028 
C428 
C480 
C408 
C400 
C400 
c4008 
C498 


.DOPT PI1 


ERKENNEN RR 


;* * 
;* BACKUP * 
;* * 
;* VON DISKETTE AUF CASSETTE * 
;* * 
;* MIT FASTTAPE * 
;* * 


FZERRRRERREHHRTR KH HH HN HN HH HH RR 


3 
3 START 


; WERTE 


START 
ELSERN 


NUMOUT 
MOTAUS 
PTASTE 
SFINUM 
STROUT 
SETFAR 
ABSOLUT 


GETBYT 
SETLFS 
SETNAM 
OPEN 
CLOSE 
TALK 
SETALK 
IECIN 
CLALL 
UNTALK 
STOP 
BASOUT 


GA 

sa 
MAXBLK 
CR 
COPANZ 
TEMP 
FLAG 
LISTPT 
FILPUF 
LNGTAB 
NAMTAB 
LSTMAX 
TLSADR 


MIT SYS 50176 


UND KOMMENTAR! 


GELTEN FUER 


*= $C498 





* 

$E544 
$BDCD 
$FCCA 
SF838 
sFSOF 
$ABIE 
$FSiF 
$C085 


$FFE4 
$FFBA 
SFFBD 
$FFCO 
SFFC3 
$FFB4 
SFFI6 
$FFAS 
$FFE7 
$FFAB 
$FFEI 
SFFD2 


[use Eu a se u ss a u a TI 


$BA 

$B7 

5978 

$0D 

$FB 

$FC 

$FE 

s41 

5340 
START+$6 
START+$7 
330 

5097 


nunmal 
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(SYS 29696) 


E IN KLAMMERN 


vC-28 


($7490) 


3 ($E5S5F) BILDSCHIRM LOESCHEN 
;($DDCED) POS. INEGERZAHL AUSGEB. 
5; ($FD88) MOTOR AUSSCHALTEN 

; ($F8B7) RECORDERTASTE ABFRAGEN 
5 ($F3SCF) SUCHT FILENUMMER 

; ($CB1E) STRING AUSGEBEN 

5 ($F3DF) SETZT FILEPARAMETER 

5 ($797F) EINSPRUNG IN FASTTAPE 


;BYT VOM EINGABEGERAET HOHLEN 
;FILEPARAMETER SETZEN 
;FILENAMEPARAMETER SETZEN 


;SECUNDAERADR. NACH TALK 
;BYTE VOM IEC-BUS HOLEN 


3UNTALK AUSGEBEN 
;STOPTASTE ABFRAGEN 
;BYT AUSGEBEN 


; GERAETEADRESSE 

; SEKUNDAERADRESSE 

5 ($5D) MAX LADBARE BLOECKE 
;CARRADGE RETURN 

;AKTUELLE LISTENLAENGE 
;HILFSPUFFER 

;EINZEL FLAG 

;POINTER AUF NAMENLISTE 
;FILEPUFFER 

40 ;TAB. DER NAMENLAENGEN 
08 ;TAB. DER FILENAMEN 
3MAXIMALE LISTENLAENGE 
;($13) HIBYTE DER LADEADRESSE 


450: 
460: 
470: 
480: 
492: 
495: 


560: 
570: 
580: 
590: 
6080: 
610: 
620: 
630: 
649: 
650: 
666: 
672: 
680: 
690: 
7998: 
701: 
701: 


703: 
703: 
710: 
720: 
730: 
7408: 
750: 
760: 
778: 
780: 
798: 
809: 
810: 
829: 
839: 
840: 
850: 
868: 
870: 
889: 
899: 
988: 
910: 
920: 
938: 
940: 
950: 
966: 
979: 
989: 
998: 
1000: 
1910: 
1020: 
1030: 


C400 
C490 
C488 
C490 
c408 
C480 


c428 
c402 
C495 
c408 
C40A 
c402D 
C40F 
c411 
c414 
C416 
c418 
C41B 
C41E 
C420 
c422 
C423 
C423 


C423 
C423 
C423 
C426 
C429 
c42C 
C42E 
cA2F 
c431 
c434 
C436 
C438 
C43A 
C43D 
C448 
C442 
0445 
C447 
CAAA 
c44C 
C44F 
c450 
C452 
C455 
c457 
C45A 
C4SC 
c45F 
C462 
C465 
0467 
C45A 
C46B 
C46D 
C470 


01 
20 
21 
06 
86 


c8 
1E 
34 
c8 
1E 
97 
45 
o1 


Do 
De 


02 


AB 


AB 
C7 


c7 
c7 
c7 


FF 


FF 
FF 


FF 


FF 


FF 


FF 
FF 
BD 
c7 
FF 
FF 


c7 
C7 


TEMP2 

TPGSTA 
TPGEND 
PRGSTA 
PRGEND 
MOFLAG 


; 


u ui 


STA 
STA 
LDA 
STA 
LDA 
LDY 
JSR 
LDA 
LDY 
JSR 
JSR 
cMmP 
BNE 
RTS 


$22 ;HILFSPOINTER 


SAC ;PTR ZUM TATS. PRGSTART 
$AE ;PTR ZUM TATS. PRGENDE 
sA7 ;PTR ZUR EIGENTL. PRGSTART 
59 ;PTR ZUM EIGENTL. PRGENDE 
sc ;MOTORFLAG 

#1 ;(LDA #25) 

+D028 5; (STA $990F) 

sD021 3; (ENTFAELLT)I 

#6 

$286 

#<TITEL 

#>TITEL 

STROUT 


#<QUEINS ;"QUELLDISK EINSTECKEN " 
#>QUEINS 

STROUT 

WAIT 

#"E" ;PROGRAMM BEENDEN 

OKCOPY 


5 INHALT EINLESEN 


OKCOPY 


LOOP1 


LOOP2 


NULL 


JSR 
JSR 
JSR 
LDA 
TAX 
LDY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
LDY 
JSR 
DEY 
BNE 
JSR 
STA 
JSR 
LDX 
JSR 
JSR 
JSR 
BEO 
JSR 
CLC 
BCC 
JSR 
JSR 
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CARET 
CARET 
INIT ;DISK INITIALISIEREN 
#308 


#800 
SETLFS 
#501 
#<CATALO 
#>CATALO 
SETNAM 
OPEN 
#308 
TALK 
#500 
SETALK 
#594 
IECIN ;DIE ERSTEN 4 BYTES EINLESEN 


LOOP1 

IECIN ;BLOCKZAHL EINLESEN 
TEMP2 

IECIN 

TEMP2 

NUMOUT ;UND AUSGEBEN 

SPACE 

IECIN ;DISKNAME ETC AUSGEBEN 
NULL 

BASOUT 


LOOP2 
CARET 
CARET 


1049: 
1059: 
1860: 
1070: 
1071: 
1071: 


1073: 
1073: 
1080: 
1090: 
1190: 
1110: 
1120: 
1130: 
1140: 
11590: 
1160: 
11790: 
1189: 
1190: 
1200: 
12190: 
1220: 
1230: 
1240: 
1250: 
1260: 
1270: 
1280: 
1290: 
1300: 
1310: 
13290: 
1330: 
1349: 
1350: 
1360: 
1370: 
1389: 
1390: 
1400: 
1410: 
1420: 
1430: 
1449: 
1450: 
1460: 
1479: 
1480: 
1490: 
1500: 
1510: 
1520: 
1530: 
1540: 
1550: 
1560: 
1570: 
1580: 
1590: 


C473 
C476 
c479 
C47B 
C47D 
C47D 


C47D 
C47D 
c47D 
C480 
c482 
C485 
C487 
C489 
C48C 
C48F 
c491 
c494 
C495 
C498 
C499 
C49C 
C49E 
C49F 
caAl 
c4A4 
CaA7 
C4A9 
CAAB 
CA4AE 
C4Bö 
C4B2 
C4B4 
C4Bö 
C4B8 
C4BA 
CABC 
CABF 
c4c2 
C4C04 
C4C6 
c4Cc8 
CAaCcA 
Cacc 
CacF 
C4D® 
C4D2 
C4D4 
C4D6 
C4D8 
C4DA 
C4DC 
C4DE 
CAE1 

C4E4 
C4E& 
C4EB 
CAEA 
CAEC 
CAEE 


20 


AO 
84 


20 
85 
20 
85 
A& 
2e 
20 


20 
48 
20 
68 
99 
Fo 
c8 
De 
20 
2e 
AS 
Fo 
ac 
AS 


AS 
c7 
90 
A? 
no 
20 
4C 
AS 
c9 
90 
AI 
AO 
20 
18 
98 
A? 
85 
A? 
85 
a9 
ao 
20 
26 
c97 
Fo 


De 
A? 
Ao 


AS 
AS 
08 
FB 


FF 
FF 


FF 


FF 


BD 
c7 


FF 


c7 


03 


FF 


FF 


CS 


AB 
c5 


AB 


AB 
c7 


JSR 
JSR 
LDY 
STY 


IECIN 

IECIN 

#$00 ;ANZAHL DER ZU COPIERENDEN 
COPANZ ;FILES AUF NULL SETZEN 


5 INHALT AUSGEBEN UND FRAGEN 


LSTART 


WRFILE 


NAMEND 


FRAGEN 


TOLONG 


FINISH 
LNGEOK 


FANZOK 


LOOPS 


JSR 
STA 
JSR 
STA 
LDX 
JSR 
JSR 
LDY 
JSR 
PHA 
JSR 
PLA 
STA 
BEQ 
INY 
BNE 
JSR 
JSR 
LDA 
BEQ 
JMP 
LDA 
BNE 
LDA 
CMP 
BCC 
LDA 
LDY 
JSR 
JMP 
LDA 
CMP 
BCC 
LDA 
LDY 
JSR 
CLC 
BCC 
LDA 
STA 
LDA 
STA 
LDA 
LDY 
JSR 
JSR 
CMP 
BEQ 
CcMP 
BNE 
LDA 
LDY 


IECIN 

TEMP 

IECIN 

TEMP+1 

TEMP 

NUMOUT 3;BLOCKZAHL AUSGEBENN 
SPACE 

#500 ;FILENAMEN 

IECIN ;EINLESEN 


AUSGAB ;AUSGEBEN 

sUND IN 
FILPUF,Y ;PUFFER SCHREIBEN 
NAMEND 


WRFILE 

IECIN 

IECIN 

99 ;STATUS ABFRAGEN 
FRAGEN 

INHEND 

TEMP+1 

TOLONG 

TEMP 

#MAXBLK 5;AUF MAXIMALE LAENGE 
LNGEOK 3; TESTEN 

#<SLONG 5;"ZU LANG ZUM 
#>SLONG ;ZUM COPIEREN" 
STROUT 3;AUSGEBEN 

NXFILE 

COPANZ 

#LSTMAX 

FANZOK 

#<LILONG ;"LISTE ZU LANGE" 
#>LILONG 

STROUT ;AUSGEBEN 


FINISH 

#590 3"JA/NEIN" AUSGEBEN 

$08 

#$1F ; (ENTFAELLT) TABULTIERUNG 
$D3 ; (ENTFAELLT) UEBER SPALTENZEIGER 
#<JANEIN 

#>JANEIN 

STROUT 

INPUT 

#'N" 

NEIN 

KrJ" 

LOOP3 

#<STRJA 3JA AUSGEBEN 

#>STRIA 


167 


1608: C4F® 20 IE AB JSR STROUT 


1618: CAFS AS FB LDA COPANZ 

1629: CAFS 20 Fi C6 JSR SETPTR 

1630: C4F8 A2 00 LDX #$908 

1649: CAFA EB LOOP4 INX ;FILENAMENSTART SUCHEN 
1650: CAFB BD 40 03 LDA FILPUF,X 

1668: CAFE C9 22 CMP #$22 ;1.HOCHKOMMA = START 
1670: C508 DO FB BNE LDOP4 

1689: CS502 86 FD STX TEMP+1 ;START RETTEN 

1698: C504 E8 INX 

1700: LCS505 BD 49 03 UMSETZ LDA FILPUF,X ;NAMEN IN LISTE SCHREIBEN 
1710: CS508 C9 22 cMP  #$22 ;2. HOCHKOMMA = ENDE 
1720: CS50A FO 96 BEQ UMSEND 

1730: CS50C 91 41 STA (LISTPT)I,Y 

1748: CSOE E8 INX 

17580: CSeF CB INY 

1768: CS10 DO FS BNE UMSETZ 

1778: CS512 BA UMSEND TXA ;ENDPUNKT IN AKKU 
1780: CS513 A4 FB LDY COPANZ ;INDEX IN Y-REG. 

1798: CS515 18 ELC 

1809: CS16 ES FD SBC TEMP+1 ;LAENGA BERECHNEN 
1810: CS518 99 40 CA STA LNGTAB,Y ;IN TABELLE SCHREIBEN 
1820: CS1B BD 42 83 WETEST LDA FILPUF,X 

1830: CS51E DO @A BNE TYPTST 

1849: CS520 A9 51 ILL LDA #<STRILL ;"ILLEGALER FILETYP" 
18590: [522 AB C9 LDY &#>STRILL 

1860: C524 28 IE AB JSR STROUT ;AUSGEBEN 

1870: C527 4C 41 C5 JMP_ NXFILE 

1880: CS52A C9 53 TYPTST CMP U #"S" ;TESTET AUF PRG FILE 
18980: CS2C Fö F2 BEQ ILL 

1909: CS2ZE C9 50 CMP U &#"P" 

1918: CSS FO 05 BEQ TYPOK 

1920: CS532 E8 INX 

1930: C533 D® Eö& BNE WETEST 

1940: CS535 Eö FB TYPOK INC COPANZ ;ANZ DER ZU COPIERENDEN 
1950: (537 18 CLC ;FILES ERHOEHEN 

1960: LCS538 908 07 BCC NXFILE 

1979: CSSA AI 6B NEIN LDA #<STRND ;"NEIN" AUSGEBEN 
1980: CSSC AO C9 LDY #>STRNO 

19908: LSSE 28 IE AB JSR STROUT 

2088: CS541 28 B6& C7 NXFILE JSR CARET 

2018: C544 4C 7D CA JMP  LSTART 

2020: C547 AI 08 INHEND LDA #$08 ;FILE SCHLIESSEN 

20308: (549 28 C3 FF JSR CLOSE 

20848: CS54C AS FB LDA COPANZ ;SOLLEN FILES COPIERT 
2050: LCS4E DO 03 BNE COPYST ;WERDEN/NEIN=> START 
2068: CS550 4C 00 CA JMP START 


20862: [553 
2062: [553 
2062: (553 
;COPIEREN VORBEREITEN 
2066: (553 
2066: (553 
2066: [553 
2079: CS53 A9 77 COPYST LDA #<FRAGE ;"EINZELN ODER 


2080: [555 AB C9 LDY &#>FRAGE ; HINTEREINANDER" 
2098: CS557 28 IE AB JSR STROUT ;AUSGEBEN 

2108: CS55A 28 Ei C7 ABFRA2 JSR INPUT 

2118: CS5SD C9 31 CMP #"1" 

2128: CSSF FO 07 BEQ EINZEL 

21390: (561 C9 32 CMPO#"2" 
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2140: 
2150: 
21680: 
2179: 
2180: 
2190: 
2208: 
2202: 
2202: 
2202: 


2286: 
2206: 
2206: 


2210: 
2210: 
2220: 
2230: 
2240: 
2250: 
2260: 
2270: 
2289: 
2290: 
2500: 
2310: 
2320: 
2330: 
2349: 
2350: 
2369: 
2370: 
2380: 
2390: 
2400: 
2410: 
2420: 
2430: 
2449: 
2459: 
2460: 
2470: 
2480: 
2490: 
2500: 
2510: 
25290: 
2530: 
2540: 
2550: 
25690: 
2570: 
2580: 
2590: 
26008: 
2619: 
2620: 
2630: 
2640: 


C563 
C565 
c567 
C568 
CSA 
C56C 
CS6E 
c571 
c571 
c571 


c571 
c571 
c571 


c571 
c571 
c573 
c575 
c577 
c579 
cS57c 
cS7E 
c581 
c583 
C5B6 
c588 
CS58B 
c58Cc 
C58D 
cS8F 
c591 
c593 
c594 
c597 
c5997 
c59C 
c59E 
C5AO 
CSAS 
CSAS 
c5A7 
C5AA 
CS5AB 
CSACc 
CSAE 
C5B® 
C5B2 
c5B5 
CSB8B 
c5B9 
CSBA 
cSBC 
CSBE 
cSBF 
cSc1 
c5Cc5 
C5C6 
c5c9 
CSCB 


a2 
86 
AI 
AO 
20 
Aa 
BE 
AS 
20 


20 
c8 
cA 
Do 
V2 
a2 
AB 
20 
A& 
BD 
85 
AS 
20 
A2 
Bil 
9D 
c8 


[7-7 
De 
AO 
B9 
9D 


E8 
co 
908 
8A 


A® 
20 
20 
n9 
A® 


08 


c7 
c97 
1E 
FC 
40 
FC 
Fi 
41 
D2 


F7 
02 
08 


BA 
FC 
49 
22 
FC 
Fi 
02 
a 
40 


22 
FS 


D2 
48 


04 
Fa 


40 
03 
BD 
co 
07 
08 


AB 


cA 


C& 


‚FF 


cA 


ch 


93 


c7 
03 


FF 
FF 


BNE ABFRA2 
LDA #%00 ;FLAG ENTSPRECHEND 
„BYT $2C 
EINZEL LDA #$FF ;N 
STA FLAG 
LDA #s0F }FEHLERKANAL SCHLIESSEN 
JSR CLOSE 
;COPIER - ROUTINE 
;EINLESEN VON DISK 
; VORBEREITEN 
LDX #00 5 TEMP LOESCHEN 
STX TEMP ;TEMP => PRG-ZAELER 
LOLOOP LDA #<SREAD 5; "READING" 
LDY #>SREAD 
JSR STROUT ; AUSGEBEN 
LDY TEMP ;POS. IN TABELLE 
LDX LNGTAB,Y ;LAENGE NACH X-REG. 
LDA TEMP 
JSR SETPTR 
WRTNAM LDA (LISTPT),Y ;FILENAME AUSGEBEN 
JSR BASOUT 
INY 
DEX 
BNE WRTNAM 
LDA #$02 ;FILENUMMER 
LDX #508 ;G6A 
TAY ;5A 
JSR SETLFS 
LDX TEMP 
LDA LNGTAB,X 
STA TEMP2 
LDA TEMP 
JSR SETPTR 
LDX #$00 
LOOP& LDA (LISTPT),Y ;FILENAME IN PUFFER 
STA FILPUF,X ;SCHREIBEN 
INY 
INX 
DEC TEMP2 
BNE LODP& 
LDY #00 
LOOP7 LDA PRGRE,Y ; ",P,R " ANHAENGEN 
STA FILPUF,X 
INY 
INX 
CPY #04 
BCC LOOP7 
TXA 
LDX #<FILPUF 
LDY &#>FILPUF 
JSR SETNAM ' 
JSR OPEN 
LDA #TLSADR 
LDY #300 
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2650: ESCD 84 22 STY TEMP2 


2660: ESCF 85 23 STA TEMPZ+1 

2678: CSDi AD 11 DO LDA $Do11 ; (ZEILE 2670-2690 ENTFALLEN) 
2680: CS5D4 29 EF AND #$EF ;BILDSCHIRM AUS 
2690: CSDö 8D 11 DO STA $Doill 

2788: CSD7 A9 OF LDA #s0F ;KANAL 15 DEFFNEN 
27180: CSDB A2 08 LDX #%08 

2720: CSDD AB TAY 

2730: CSDE 20 BA FF JSR SETLFS 

2740: CSE1 AI 083 LDA #$03 ;"UI-" DISKETTE 
2759: CSES A2 D7 LDX #<UIMIN ;SCHNELL SCHALTEN 
2768: CSES Ad C9 LDY #>UIMIN 

27790: CSE7 20 BD FF JSR SETNAM 

2788: CSEA 28 CO FF JSR OPEN 

2798: CSED A2 02 LDX #302 ;LADEKANAL DEFFNEN 
28088: CSEF 28 OF FS JSR SFINUM 

2810: CSF2 20 IF F3 JSR SETPAR 

2820: CSFS AS BA LDA 6A 

2830: CSF7 20 B4 FF JSR TALK 

2848: CSFA AS B? LDA SA 

2850: CSFC 20 96 FF JSR SETALK 

2860: LSFF A@ 08 LDY #$00 


2862: C601 
2862: C6®1 
;PROGRAMM IN PUFFER LADEN 
2866: C681 
2866: [601 
2870: C6®1 20 AS FF LDLOOP JSR TIECIN ;PRG LADEN 


2880: C604 28 09 C7 JSR STOBYT 

2890: C607 Ab 90 LDX $90 

2980: C609 FO Fö BEQ LDLOOP 

2910: C66B 28 EB C7 JSR FEHLER 

2920: Cö0E 08 PHP 

2950: LC6®F AI 02 LDA #$02 

2948: Cö11l 20 CS FF JSR CLOSE 

2950: C614 AD 11 De LDA $De11 ; (ENTFAELLT) BILDSCHIRM AN 
2960: [617 09 10 ORA #$10 ; (ENTFAELLT) 
29706: C619 8D 11 DO STA $Deii ; (ENTFAELLT) 
2980: Cö1C 28 PLP 

29908: Cö1D 90 83 BCC 2 NOFEHL 

3008: C61F 28 37 C7 JSR FEMELD 


30062: (622 
3082: [622 
;AUF CC SPEICHERN VORBEREITEN 
30886: C622 
5806: [622 
3019: C622 A& FC NOFEHL LDX TEMP 


3020: [624 AS 22 LDA TEMP2 

3050: C626 85 AE STA TPGEND 

3048: (628 AS 23 LDA TEMP2+1 

3050: C&2A 85 AF STA TPGEND+1 

3068: C&2C E8 INX 

S070: C62D AS FC LDA TEMP 

38075: C&2F DO OD BNE NOMELD 

30808: C6S51 AI 4E LDA #<ZICASS ;"CASSETTE EINLEGEN " 
3098: [6353 AB CB LDY #>ZICASS 

3160: C635 28 IE AB JSR STROUT 

3105: (658 20 E1I C7 JSR INPUT 

3118: C63B 20 25 C8 JSR TASTE ;RECORDERTASTE ABFRAGEN 
3115: C6öSE AI ES NOMELD LDA #<WRITI 

3120: C6489 AO C9 LDY #>WRITI 
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3125: 
3130: 
3135: 
3140: 
3145: 
3150: 
3155: 
31680: 
3160: 
3165: 
3210: 
3220: 
3230: 
3249: 
3250: 
3260: 
3270: 
3280: 
3290: 
3300: 
3319: 
3320: 
33309: 
3349: 
3350: 
3360: 
3379: 
3380: 
3I90: 
3400: 
3410: 
3420: 
3425: 
3430: 
3449: 
3450: 
3460: 
3470: 
3480: 
3490: 
3580: 
3520: 
3530: 
3549: 
3550: 
3555: 
3560: 
3570: 
3589: 
3590: 
3689: 
3610: 
3620: 
3622: 
3622: 


, 3626: 
3626: 
3630: 
3648: 
3650: 


C642 
C645 
C647 
C64A 
C6öAC 
CöAF 
C651 

C654 
C855 
C656 
C658 
Ca5A 
C65SC 
C65D 
C660 
C662 
0665 
C667 
C8569 
CösC 
Cö6E 
C670 
0673 
C674 
6675 
C677 
C679 
C67A 
C67C 
C67E 
C681 

C683 
C685 
C687 
C689 
Cö8B 
Cö8D 
Cö8E 
C690 
0692 
C693 
C895 
C697 
C698 
CE9A 
C69B 
Cö9C 
C69E 
C6AO 
C6A2 
CoA4 
C6AS 
CoA7 
C6A9 
C6A9 


CA? 
C6A9 
C6A9 
C6AB 
CöAD 


A2 
86 
20 


1E 
FC 
48 
FC 
Fi 
ai 
D2 


F7 
ei 
09 


BA 
FC 
40 
22 
FC 
Fi 
9 
ai 
40 


22 
FS 


40 
03 
BD 
08 
07 
AC 
AD 
AC 
AT 


AC 


AC 
AE 


ACc 


AT 
A? 
AF 
a8 


AD 
AA 


05 
AB 
85 


AB 


cA 


C6 


FF 


FF 


CA 


Cö 


03 


FF 


co 


JSR 
LDY 
LDX 
LDA 
JSR 
WRNAMZ LDA 
JSR 
INY 
DEX 
BNE 
LDX 
LDA 
TAY 
JSR 
LDX 
LDA 
STA 
LDA 
JSR 
LDX 
ULOOP LDA 
STA 
INX 
INY 
DEC 
BNE 
TXA 
LDX 
LDY 
JSR 
LDY 
LDA 
STY 
STA 
LDA 
STA 
INY 
LDA 
STA 
INY 
STY 
LDA 
SEC 
SBC 
PHP 
ELC 
ADC 
STA 
LDA 
ADC 
PLP 
SBC 
STA 


;PRG AUF CC 


LDX 
STX 
JSR 


STROUT 
TEMP 
LNGTAB, Y 
TEMP 
SETPTR 
(LISTPT),Y 
BASOUT 


WRNAM2 

#501 ;FILEPARAMETER 

#9 ;FUER CASSETTENSPEI- 
} CHERUNG 

SETLFS 

TEMP 

LNGTAB, X 

TEMP2 

TEMP 

SETPTR 

#500 

(LISTPT),Y ;FILENAMEN IN 

FILPUF,X 5; CASNPUFFER 
5 SCHREIBEN 


TEMP2 
ULOOP 
;FILENAMEPARAMETER 
#<FILPUF 5N 
#>FILPUF 
SETNAM 
#500 
#TLSADR 
TPGSTA 
TPGSTA+1 
(TPGSTA),Y 3; PRGSTARTADR. 
PRGSTA ;IN PRGESTARTVEKTOR 


(TPGSTA),Y 
PRGSTA+1 


TPGSTA 
TPGEND ;ENDADRESSE BERECHNEN 


TPGSTA 
PRGSTA 
PRGEND 
TPGEND+1 
PRGSTA+1 
TPGSTA+1 
PRGEND+1 
SPEICHERN 


#5 ; SYNCHRONISATIONS 
$AB ;WIEDERHOLUNG 
ABSOLUT ;FASTTAPE SPEICHERN 
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3690: 
3790: 
3718: 
3720: 
37390: 
3732: 
3733: 
S740: 
3753: 
3769: 
3770: 
3789: 
3790: 
3810: 
3820: 
3859: 
3840: 
3845: 
3850: 
3879: 
3880: 
3882: 
3882: 
3882: 


3886: 
3886: 
3886: 


3888: 
3888: 
3890: 
3980: 
3919: 
3929: 
3930: 
3932: 
3932: 


3936: 
3936: 
3940: 
3950: 
3960: 
3970: 
3980: 
3998: 
4000: 
4010: 
4020: 
4030: 
4040: 
4859: 
4060: 
4070: 
40809: 
4082: 
4082: 


4086: 


C6B® 
CöB3 
C6BS 
C6B7 
C6B9 
CöBB 
C&BD 
CöBF 
C6C2 
c8&C4 
CösCE 
csC9 
CEcE 
CöcF 
C6D2 
CoD4 
C6D& 
C6D7 
CöDC 
CöDF 
C6E2 
C6ES 
C6ES 
C6ES 


C6ES 
C6ES 
C6ES 


C6ES 
C6ES 
C6ES 
C6EB 
C6EB 
C6ED 
C6öF® 
Cöri 
Cöri 


Cörl 
CöFi 
CöFi 
CAFS 
Cör4 
CAFS 
CöF7 
CöF8 
CöFA 
CöFB 
CöFD 
CöFF 
c701 
c702 
c794 
C706 
c708 
c709 
c799 


C789 


Ao 
oA 
oA 
84 
oA 
26 
aA 
26 


AS 
18 
69 
85 
aa 
69 


73 
11 
10 
11 


00 


42 


42 


42 
a 
a2 


CB 
42 
oa 


Cö 


ce 


AB 
c7 
c4 
c7 


C7 
De 


De 


JSR 
INC 
LDX 
CPX 
BES 
BIT 
BPL 
JMP 
CENDEN LDA 
LDY 
JSR 
JSR 
JMP 
EINZE2 JSR 
LDA 
LDY 
JSR 
JSR 
JSR 
NXTFIL JSR 
JMP 


SCRON 
TEMP 
TEMP 
COPANZ 
CENDEN 
FLAG 
EINZE2 
NXTFIL 
#<EOCOP 
#>EOCOP 
STROUT 
INPUT 
START 
NNAMAU 
#<ZICASS 
#>ZICASS 
STROUT 
INPUT 
TASTE 
CARET 
LOLOOP 


3 UNTERPROGRAMME 


; BILDSCHIRM 


SCRON JSR 
LDA 
ORA 
STA 
RTS 


3; (ENTFAELLT) 


;"ENDE DES COPIERENS" 


;AUSGEBEN 


;"CASSETTE EINLEGEN " 


;AUSGEBEN 
;sAUF TASTE WARTEN 


;NAECHSTES FILE LADEN 


ANSCHALTEN 


SEUIP 
sDo11 
#$10 

$D011 


; (ZEILE 3890-3930 ENTFALLEN) 


;LISTENTHENER (LISTPT) AUF 
FILENAMEN N 


;AUF ENTSPR. 


SETPTR LDY 
ASL 
ASL 
STY 
ASL 
ROL 
ASL 
ROL 
STA 
LDA 
CLC 
ADC 
STA 
LDY 
RTS 


#500 

Aa 

A 
LISTPT+1 
A 
LISTPT+1 
A 
LISTPT+1 
LISTPT 
LISTPT+1 


#>NAMTAB 
LISTPT+1 
#500 


;BYTE IN DEN SPEICHER SCHREIBEN 


172 


4086: [709 


48699: C709 91 22 STOBYT STA  (TEMP2),Y 

41080: C70OB E& 22 INC TEMP2 ; ZAEHLER ERHDEHEN 
4116: C76D DO 02 BNE NOINC 

4120: C7OAF E6& 23 INC TEMP2+1 

4139: C711 58 NOINC CLI 

4146: C712 66 RTS 


4142: C715 

4142: C713 
;ASCII-BYTE HOLEN UND IN HEXZAHL 
3 UMWANDELN 

4146: C713 

4146: C713 

4150: C713 20 AS FF ASCHEX JSR IECIN 


4160: C716 29 OF AND #soF 
4170: C718 9A ASL A 
4180: C719 0A ASL A 
4199: C71A 6A ASL A 
4200: C71B OA ASL A 
4216: C71C 85 57 STA #57 
422@: C7IE ZB AS FF JSR IECIN 
4230: C721 29 oF AND #$0F 
4248: [723 05 57 ORA 57 
4250: C725 66 RTS 


4252: C726 

4252: 0726 
;HEXZAHL IN ASCII-BYTE UMWANDELN 
; UND AUSGEBEN 

4256: (726 

4256: (726 


4260: C726 48 HEXASC PHA 

4270: C727 4A LSR A 
4280: [728 AA LSR A 
4290: [729 4A LSR A 
4500: C72A 4A LSR A 
4310: C72B 20 ZF C7 JSR HALBBT 
4329: UCT72ZE 68 PLA 

43380: C72F 29 @F HALBBT AND #$6F 
43406: C731 18 CcLC 

4350: C7S2 69 30 ADC #350 
45689: C734 AC D2 FF JMP  BASOUT ;AUSGEBEN 


4362: [737 
4362: (737 
;FEHLERMELDUNG AUSGEBEN 
4366: [737 
4566: [737 


4379: C737 AD 11 DO FEMELD LDA $Deo11 (ZEILE 4378-4398 ENTFALLEN) 


4380: C7SA 09 10 ORA #$10 (FMELD KOMMT IN ZEILE 4400) 
4390: C73SC 8D 11 Deo STA s$Do11 

4408: C7SF AI 97 LDA #<WMACH 5;"WEITER MACHEN ? " 
4416: C741 AO CA LDY #>WMACH 

44280: C743 280 IE AB JSR STROUT ;AUSGEBEN 

4430: C746 26 Ei C7 FLOOP JSR INPUT ;sAUF TASTE WARTEN 
44408: [749 C9 59 CMP #8$59 

4450: C74B DO 01 BNE NEIN2 

44606: C74D 66 RTS 

4479: CT74E C9 4E NEIN2 CMP  #$4E 

4488: C750 De F4 BNE FLOOP 

44989: C752 4C DO C7 JMP ENDE 


4492: [755 
4492: C7S55 
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4496: 
4496: 
4500: 
4510: 
4520: 
4530: 
4540: 
45590: 
4560: 
4579: 
4580: 
4590: 
4600: 
4610: 
4620: 
46530: 
4640: 
4650: 
4660: 
4662: 
4662: 


4666: 
4666: 
4670: 
4689: 
4699: 
4700: 
4719: 
4720: 
4730: 
4740: 
4750: 
4768: 
4779: 
4780: 
4790: 
4800: 
4810: 
4820: 
4822: 
4822: 


4826: 
4826: 
4839: 
4840: 
4850: 
4852: 
4852: 


4856: 


: 4856: 


4869: 
4870: 
4880: 
4890: 
4900: 
4910: 


c755 
c755 
c755 
c757 
c759 
c7SC 
C75E 
C75F 
C768 
C761 
C762 
C764 
C767 
C768 
C76B 
C78E 
C76F 
c778 
c772 
0773 
C773 


C773 
C773 
C773 
C776& 
c778 
C77B 
c77D 
C788 
c782 
C784 
C785 
c788 
C78A 
c78C 
C78E 
c791 
c794 
C79& 
c799 
C799 


c799 
c799 
c799 
c79C 
C79E 
C79F 
C79F 


C79F 
C79F 
C79F 
c7A1l 
C7AS 
c7A4 
C7A7 
C7A9 


AD 
29 
8D 
AI 
26 
AI 
A2 
AB 


- 
2 


A? 
A2 
ao 


20 
n9 


20 
Fo 
68 


AI 
A2 
AB 
20 
A? 
a2 


1A 
cA 
1E 
FC 


FC 
40 


00 
D2 


F& 


EA 
FB 


or 
08 


BA 
ei 
DF 


AB 


CA 


CB 
FF 


Do 


De 


FF 


FF 


FF 


FF 


FF 


FF 


;FOLGENDES FILE AUSGEBEN 


NNAMAU LDA #<SNFILE 
LDY &#>SNFILE 
JSR STROUT 
LDA TEMP 
ASL A 
ASL A 
ASL A 
ASL A 
LDX TEMP 
LDY LNGTAB,X 
TAX 

WRNAMS LDA NAMTAB,X 
JSR BASOUT 
INX 
DEY 
BNE WRNAMS 
RTS 


;DISKETTE AUF 


” LANGSAM’ 


;"NAECHSTES FILE " 


;AUSGEBEN 
;POS IN TABELLE 
; BERECHNEN 


;FILENAMEN AUSGEBEN 


SCHALTEN 


3 UND BILDSCHIRM ANSCHALTEN 


SEUIP LDA 
AND 
STA 
LDA 
JSR 
LDA 
LDX 
TAY 
JSR 
LDA 
LDX 
LDY 
JSR 
JSR 
LDA 
JMP 


$Do11 
#$EF 
$Do11 
#$0oF 
CLOSE 
#S0F 
#508 


SETLFS 
#$05 
#<UIPLU 
#>UIPLU 
SETNAM 
OPEN 
#$0F 
CLOSE 


;  WARTESCHLEIFE 


WAIT JSR  GETBYT 


BEQ WAIT 
RTS 


;DISK INITIALISIEREN 


INIT LDA #$0F 
LDX #308 
TAY 
JSR SETLFS 
LDA #801 
LDX #<STRI 
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; (ZEILE 4670-4820 ENTFALLEN) 
; BILDSCHIRM AN 


3; KOMMANDOKANAL 
;OEFFNEN 


; "I" 


4929: 
4930: 
4940: 
4942: 
4942: 


4946: 
4946: 
4959: 
4960: 
4970: 
4980: 
4982: 
4982: 


4986: 
4986: 
4990: 
5000: 
910: 
5020: 
5039: 
5940: 
5050: 
50680: 
5079: 
5080: 
50990: 
5108: 
S110: 
5120: 
5130: 
5132: 
5132: 


5136: 
5136: 
5140: 
5150: 
5169: 
5170: 
5180: 
5190: 
5200: 
5202: 
5202: 


5206: 
5206: 
5210: 
5220: 
5230: 
5240: 
5259: 
5260: 
5279: 
5280: 
9290: 
5300: 
5319: 
5320: 


C7AB 
C7AD 
C7BO 
C7B3 
C7B3 


C7B3 
C7B3 
C7B3 
C7BS 
C7B6&6 
C7B8 
C7BB 
C7BB 


C7BB 
C7BB 
C7BB 
C7BE 
C7BF 
C7Co 
c7C1 
c7c2 
C7C5 
C7C6 
C7C8 
C7C9 
C7CA 
C7CR 
ETCC 
C7CD 
C7CR 
c7D® 
c7Do 


c7D® 
c7D® 
c7Do® 
c7D2 
C7D3 
C7D6 
c7D8 
C7DB 
C7DE 
C7E1 
C7E1 


C7E1 
CIE 
C7EI 
C7EA 
C7IE& 
C7EF 
C7EB 
C7ED 
C7Fo 
C7FS 
C7FS 
C7F8 
C7FA 
C7FD 


ao 
20 
4c 


AI 
ZC 
Ag 
4C 


20 


8A 


98 
48 
20 
18 
De 
38 


AB 
68 
aA 


60 


a2 
FA 
20 
a9 
20 
20 
ac 


290 
De 
20 
976 
a2 


2 
z 


2 
2 


AS 
20 
AS 
20 
20 


c? 
BD 


20 


oD 
D2 


D2 


Ei 


ei 


01 


F& 


ES 
or 


E7 
09 


E4 
EI 
BE 
F&ö 
or 
or 
ıF 
BA 
B4 
B? 
96 
13 


FF 


FF 


FF 


FF 


C6 
FF 


FF 
ca 


FF 


c7 


FS3 


FS 


FF 


FF 
c7 


LDY #>STRI 
JSR SETNAM 
JMP OPEN 
;SPACE BZW. CARRIAGE 
SPACE LDA #$20 
.BYT $2C 
CARET LDA #CR 
JMP  BASDUT 
; AUSGABEROUTINE 
AUSGAB JSR BASOUT 
STASTE TXA 
PHA 
TYA 
PHA 
JSR STOP 
CLC 
BNE WEITER 
SEC 
WEITER PLA 
TAY 
PLA 
TAX 
STOP2 BCS ENDE 
RETURN RTS 
5 ABBRECHEN 
ENDE LDX #$F& 
TXS 
JSR SCRON 
LDA #$0oF 
JSR CLOSE 
JSR CLALL 
JMP START 
;  EINGABEROUTINE 
INPUT JSR GETBYT 
BNE RETURN 
JSR  STASTE 
BCC INPUT 
FEHLER LDX #$9F 
JSR  SFINUM 
JSR SETPAR 
LDA GA 
JSR TALK 
LDA 5A 
JSR  SETALK 
JSR ASCHEX 
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RETURN SENDEN 


;SPACE 


;CARRIDGE RETURN 
; SENDEN 


;A,X,Y REGISTER RETTEN 


;STOPTASTE ABFRAGEN 


;REGISTER WIEDERHERSTELLEN 


; (ENTFAELLT) 


;STATUS ABFRAGEN 


3330: 
5340: 
5359: 
53680: 
5379: 
5380: 
5399: 
5400: 
5410: 
5420: 
5439: 
5440: 
5459: 
5460: 
5479: 
5480: 
5490: 
5508: 
5590: 
5502: 
5502: 
5502: 
5504: 
5594: 
5506: 
5511: 
sS11l: 
Ss5s11: 


5513: 
5513: 
5513: 
5520: 
S5JI0: 
5549: 
5550: 
5588: 
5578: 
5580: 
5590: 
5600: 
5602: 
5664: 
5606: 
35608: 
S610: 
5620: 
5630: 
5646: 
5650: 
5660: 
5670: 
5689: 
5690: 
5799: 
5710: 
57290: 
5730: 
5740: 
5750: 
5760: 


C809 
C862 
C803 
C805 
C866 
C889 
C86C 
C80D 
c810 
CB13 
c815 
C817 
c818 
C819 
C81B 
CBI1E 
C820 
c823 
C824 
C825 
c828 
C82B 
C82D 
CB2F 
c831 
C834 
C834 
c834 


C834 
C834 
C834 
c834 
C837 
C84D 
C84E 
C85® 
C869 
C86B 
C88C 
C88E 
CBAS 
C8A7 
C8C6 
C8C9 
CBES3 
C8ES 
CBFB 
CBFC 
CBFD 
c91A 
C91B 
t9ıc 
c932 
C933 
c944 
C945 
c950 
c951 
c952 
CI6A 


c9? 
88 
99 
48 
20 
ze 
68 
20 
20 
c97 
Fo 


2 
2 


98 
98 
20 


98 


28 
60 
20 
20 
Do 
A? 
85 
4C 


oD 
12 
@8 


2 


eD 
953 
@D 
ı1F 
0D 
20 
oD 
20 
eD 
1E 
20 


ı1C 
v8 
oD 
1C 
20 


12 


80 


oo 
oD 
ı1c 
28 


20 
9B 


B& 
Bö 


26 
AS 
eD 
07 


@D 
sı 


oD 
5A 
eo 
11 
eD 
26 
oD 


2 
2 


eD 
20 
2D 
20 


12 


c7 
C7 


c7 
FF 


FF 


FF 


F&8 
C7 


FC 


oD 
55 
49 
ıC 
29 
20 
oD 
29 


eD 
20 


21 


CMP 
PHP 
BCE 
PHA 
JSR 
JSR 
PLA 
JSR 
JSR 
CMP 
BEQ 
PLP 
PHP 
BCC 
JSR 
BCC 
JSR 
PLP 
RTS 
JSR 
JSR 
BNE 
LDA 
sTa 
JMP 


MELAUS 


MELEND 


TASTE 


#320 


MELAUS 


CARET 
CARET 


HEXASC 
IECIN 
#CR 
MELEND 


MELAUS 
BASOUT 
MELAUS 
UNTALK 


PTASTE 
STOP2 
TASTE 
#7 
MOFLAG 
MOTAUS 


; AUSGABE STRINGS 


.BYT 
.ASC 
.BYT 
.BYT 
.ASC 
.BYT 
„ASC 
„BYT 
.ASC 
-BYT 
„ASC 
.BYT 
.ASC 
.BYT 
.ASC 
.BYT 
„BYT 
„ASC 
.BYT 
.BYT 
„ASC 
-BYT 
.ASC 
.BYT 
„ASC 
.BYT 
.BYT 
„ASC 
.BYT 


QUEINS 


ZICASS 


TITEL 


SLONG 


LILONG 


JANEIN 
STRJIA 


STRILL 
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13,13,13 
"AQUELLD 
0 

13,13 


"NZIELCASSETTE® EINLEGEN 


13,0 
“IIera 
13,13 


13,13 


13,13,13 
“0 
13,13,13 
"ig 

fe) 

13 
"aatız 
o 

13 


"antıa LISTE IST VOLL =" 


® 


;UND BEI FEHLER 


;AUSGEBEN 


ISKs EINLEGEN ! 


BACKUP VON DISKETTE AUF” 


CASSETTE" 


MIT 


DIRK PAULISSEN 


E = ENDES" 


"AJA/NEINIBRAERR ERS" 


o 
"a 
o 
13 


JA 


"aatıa ILLEGALER FILETYPS" 


® 


SFASTTAPE®" 


ZU LANGE ZUM COPIEREN 3" 


5779: 
5780: 
3790: 
5800: 
5810: 
5820: 
5830: 
5840: 
58590: 
5860: 
5879: 
5880: 
5899: 
5909: 
5910: 
5920: 
5930: 
5940: 
5950: 
5969: 
5970: 
5989: 
5985: 
5986: 
5990: 
6080: 
6019: 
6020: 
6030: 
6049: 
6045: 
6050: 
6060: 
6078: 
6080: 
6890: 


C96B 
C976 
6977 
C97A 
c992 
c994 
c9A8 
CIAA 
C9BA 
C9BC 
C9CE 
c9C7 
C9C9 
c9D1 
c9D2 
C9DE 
C9D7 
C9DA 
C9DB 
C9DE 
C9DF 
C9EO 
C9E1 
C9E2 
C9E3 
C9ES 
C9EC 
C9ED 
C9EF 
CAOS 
CAo7 
TAOB 
CA19 
CAIA 
CcAIC 
CA2ZD 


ic 
00 


57 
oD 
20 
oD 
20 
eD 


oo 
@D 
52 
80 
2C 
89 
55 
80 
55 
898 
49 
88 
24 
oo 


53 
oo 
oD 
ic 
oo 
oD 
20 
08 
®D 
4E 
08 


12 
oD 
ar 
oD 
20 
20 
oD 
oD 
45 
so 
LE) 


47 


oD 
41 


oD 


12 


57 


@D 
41 


20 


oD 
AC 


2e 


26 


5@ 


41 


2D 


2B 


56 


45 


45 


45 


STRNO 


FRAGE 


SREAD 


PRGRE 


UIMIN 


UIPLU 


STRI 


CATALO 


WRITI 


EOCOP 


WMACH 


SNFILE 


“„ASC 
-.BYT 
.BYT 
„ASC 
.BYT 
.ASC 
-BYT 
„ASC 
„BYT 
„ASC 
„BYT 
.BYT 
„ASC 
.BYT 
„ASC 
.BYT 
„ASC 
.BYT 
„ASC 
.BYT 
„ASC 
.BYT 
„ASC 
.BYT 
-BYT 
„ASC 
.BYT 
-BYT 
.ASC 
.BYT 
.BYT 
„ASC 
.BYT 
.BYT 
„ASC 
.BYT 


"aa NEIN m @" 

® 

13,13,13 

"WOLLEN SIE DIE PROGRAMME" 
13,13 
“ 1 DURCHGEHEND" 
13,13 

“ 2 
13,13 

"COPIEREN ?" 

C) 

13,13 

"READING " 

© 

"P,R" 

® 

.gr-n 

® 

sur+n 

® 

uyn 

® 

gu 

f) 

13,13 

"SAVING " 

© 

13,13 

"SENDE DES COPIERENS 
® 

13 

" WEITER MACHEN ? " 

o 

13,13 

"NAECHSTES FILE : " 

® 


EINZELN" 


177 


KRKKERKRRKRKRRHRÄERKTRTRRHNH TEN HH RR HK ENEHH HN EHRE RR 
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REM BACKUF DISKETTE => CASSETTE FUER C-64 


KRRKRRHRKRRRTHHH RR TRIER NETTE HEHE IHRER HH RHEIN HEHE HH RR 


119 


129 


136 


148 


159 


168 


170 


189 


1979 


200 


210 


230 


270 


289 


308 


E=51757: A=50176: PS=& 
FOR I=A TO E:READ X:FOKE I,X:PS=PS+X:NEXT 

IF PS<>171785 THEN FRINT"FEHLER IN DATAS":END 

SYS AzNEW 

DATA 169,1,141,32,268, 141,33, 208, 169,6,141,134,2,169 

‚197,160, 200,32,30, 171 

DATA 169,52, 160, 266, 32,30,171,32,153,199,201,69,208, 

1,96,32,182,199,32,182 

DATA 199,32,159,199,169,8,170,160,0,32,186,255,169,1, 
162, 225,160, 201,32 

DATA 189, 255,32,192,255,169,8,32,180, 255, 169,0,32,150 
‚255, 168,4,32,165, 255 

DATA 136,208, 250,32, 165,255, 133,34,32,165, 255, 166,34 

‚32, 205,189,32,179,199 

DATA 32, 165,255, 240,6,32,210,255,24,144,245,32,182,1 

99,32,182,199,32,165 

DATA 255,32, 165, 255,169, 0, 132,251,32, 165, 255,133, 252, 
32,165, 255, 133,253 

DATA 166, 252,32,2065,189,32,179,199,160,@,32,165,255, 

72,32,187,199,104,153 

DATA 64,3,240,3,200, 208, 240,32, 165, 255,32,165,255,16 

5,144,240,3,76, 71,197 

DATA 165, 253,208, 6,165, 252,201,152,144,10,169, 252,16 

0,200,32,30,171,76,65 

DATA 197,165, 251,201,48,144,10,169,27,160,201,32,30, 

171,24, 144,237,169,® 

DATA 133,8,169,31,133,211,169,51,160,201,32,30,171,3 

2,225,199,201,78,240 

DATA 82,201,74,208,245, 169,69, 160, 201,32,39,171,165, 

251,32,241,198,162,0 

DATA 232,189,64,3, 201,34, 208,248, 134, 253, 232,189,64, 

3,201,34,24@,6,145,65 

DATA 232,200, 208,243, 138,164, 251,24,229,253,153,64,2 

02,189,64,3,288,10,169 

DATA 81,160, 201,32,30,171,76,65,197,201,83, 240, 242,2 


178 


320 


330 


340 


350 


360 


370 


389 


398 


489 


419 


420 


430 


440 


459 


4608 


478 


480 


490 


500 


DATA 230,230,251,24,144,7,169,107,160,201,32,30,171, 

32,182, 199,76, 125,196 

DATA 169,8,32,195,255, 165, 251,208, 3,76,90,196, 169,119, 
160, 201,32,30, 171,32 

DATA 225,199,201,49,240,7,201,50,208,245,169,0,44,169 
‚255,133, 254,169,15 

DATA 32,195,255,162,0,134,252,169,199,160,201,32,30, 

171,164,252, 190,64, 202 

DATA 165, 252,32,241,198, 177,65,32, 210, 255,200, 202,20 

8,247,169,2,162,8,168B 

DATA 32,186,255,166,252,189,64,202, 133,34, 165, 252,32, 
241,198, 162,0,177,65 

DATA 157,64,3,200,232, 198,34, 208, 245,160,0,185,210,2 

01,157,64,3,200, 232 

DATA 192,4,144,244,138,162,64,160,3,32,189,255,32,19 

2,255, 169,9,160,0,132 

DATA 34, 133,35,173,17,208,41,239,141,17,208,169, 15,1 

62,8,168,32, 186, 255 

DATA 169,3,162,215,160,201,32, 189, 255,32, 192, 255,162, 
2,32,15,243,32,31,243 

DATA 165, 186,32, 180,255, 165, 185,32, 150, 255,160, 0,32, 

165, 255,32,9,199, 166 

DATA 144,240, 246, 32,235,199,8,169,2,32,195,255, 173,1 

7,208,9,16,141,17,208 

DATA 40,144,3,32,55,199, 166, 252,165, 34,133,174,165,3 

5,133, 175,232, 165,252 

DATA 208, 13,169, 78,160,200,32,30,171,32,225,199,32,3 

7,200, 169, 227,160, 201 

DATA 32,30, 171,164, 252, 196,64, 202,165, 252,32,241,198, 
177,65,32, 210,255, 280 

DATA 202,208, 247,162,1,169,0,168,32,186, 255, 166,252, 

189,64, 202,133, 34,165 

DATA 252,32,241,198,162,0,177,65,157,64,3,232,200,19 

8,34, 208,245, 138,162 

DATA 64,160,3,32, 189, 255,160,0,169,9,132,172,133,173, 
177,172,133,167,208 

DATA 177,172,133,168,200,132,172,165,174,56,229,172,8 
‚„24,101,167,133,169 

DATA 165,175,101,168,49,229,173,133,178,162,5,134,171 


179 


510 


520 


530 


549 


559 


566 


570 


580 


598 


6008 


618 


630 


649 


650 


668 


670 


6808 


698 


798 


„32,133, 192,32, 229 

DATA 198,230, 252,166, 252,228,251,176,7,36,254,16,16, 
76,223,198,169,237,16® 

DATA 201,32,30,171,32,225,199,76,0,196,32,85,199,169, 
78, 160,200, 32,30,171 

DATA 32,225, 199,32,37,200,32,182,199,76,117,197,32,1 
15, 199,173,17,208,9 

DATA 16,141,17,208,96,160,0,10,10,132,66,10,38,66, 16, 
38,66, 133,65, 165,66 

DATA 24,105,203,133,66,160,0,96, 145,34, 230,34,208,2, 
230, 35,88, 96,32, 165 

DATA 255,41,15,10,10,10,10,133,87,32,165,255,41,15,5, 
87,96, 72,74,74,74,74 

DATA 32,47,199,164,41,15,24,105,48, 76,210, 255, 173,17 
‚208, 9,16,141,17,268 

DATA 169,7,160,202,32,30,171,32,225,199,201,89, 208,1, 
96, 201,78, 208, 244,76 

DATA 208, 199,169, 26,160, 202,32,30, 171,165, 252,10,1®, 
10, 10,166, 252, 188,64 

DATA 202, 170,189,0,203,32,219,255, 232,136, 208, 246,96, 
173,17,208,41,239,141 

DATA 17,208,169,15,32, 195, 255,169,15,162,8, 168,32, 186 
‚255,169,3,162,219 

DATA 160,201,32,189,255,32,192,255,169, 15,76, 195,255 
‚32,228, 255, 240,251 

DATA 96,169, 15,162,8, 168,32, 186,255,169,1,162,223,16 
0,201,32,189, 255,76 

DATA 192, 255,169,32,44,169,13,76,210,255,32,219,255, 
158, 72, 152, 72,32, 225 

DATA 255, 24,208,1,56,1@4,168,104,170,176,1,96, 162,24 
6, 154,32,229,198,169 

DATA 15,32, 195,255, 32,231,255,76,0,196,32, 228, 255, 20 
8, 233,32, 190, 199,144 

DATA 246,162,15,32,15,243,32,31,243,165,186,32,180,2 
55, 165, 185,32, 150, 255 

DATA 32,19,199,201,32,8,144,11,72,32,182,199,32,182, 
199,104, 32,38,199,32 

DATA 165, 255,201,13,240,9,40,8,144,245,32,210,255,14 
4,240,32,171,255,4@ 

DATA 96,32,56,248,32,205,199, 208,248, 169,7,133,192,7 


180 


710 


720 


730 


740 


759 


760 


778 


7808 


790 


896 


819 


830 


840 


850 


868 


876 


880 


8908 


799 


6,262,252,13,13,13,18 
DATA 81,85,69,76,76,68,73,83,75,146,32,69,73,78,76,6 
9,71,69,78,32,33,9,13 

DATA 13,18,90,73,69,76,67,65,83,83,69,84,84,69,146,3 
2,69,73,78,76,69,71 

DATA 69,78,32,33,13,0,147,17,28,32,32,32,32,32,32,32, 
66, 65,67,75,85,86,32 

DATA 86, 79,78,32,68,73,83,75,69,84,84,69,32,65,85,7® 
‚13,13,31,32,32,32,32 

DATA 32,32,32,32,32,32,32,32,32,32,67,65,83,83,69,84, 
84,69,13,13,32,32,32 

DATA 32,32,32,32,32,77,73,84,32,18,129,70,32,65,32,83 
‚32,84,32,84,32,6 

DATA 32,80,32,69,32,146,13,13,13,32,32,32,40,67,41,32 
‚32,32,32,68,73,82 

DATA 75,32,80,65,85,76,73,83,83,69,78,32,32,13,13, 13 

‚30,32,32,32,32,32,32 

DATA 32,32,32,32,32,69,32,61,32,69,78,68,69,31,0,13, 

28,18,33,33, 18,32, 90 

DATA 85,32,76,65,78,71,69,32,90,85,77,32,67,79,80,73, 
69,82,69,78,32,31,® 

DATA 13,28,18,33,33,18,32,76,73,83,84,69,32,73,83,84 

‚32,86, 79,76,76,32,31 

DATA @,18,74,65,47,78,69, 73,78, 157,157, 157,157,157,1 

57,157,146,31,0,18,30 

DATA 32,32,74,65,32,32,146,32,31,0,13,28,18,33,33,18, 
32,73,76,76,69,71,65 

DATA 76,69,82,32,70,73,76,69,84,89,80,31,0,28,18,32, 

78,69,73,78,32,146,32 

DATA 31,0,13,13,13,87,79,76,76,69,78,32,83,73,69,32, 

68,73,69,32,80,82,79 

DATA 71,82,65,77,77,69,13,13,32,32,32,32,49,32,32,32, 
32,68, 85,82,67,72, 71 

DATA 69,72,69,78,68,13,13,32,32,32,32,50,32,32,32,32 

‚69,73,78,90,69,76,78 

DATA 13,13,67,79,80,73,69,82,69,78,32,63,6,13,13,82, 

69, 65,68, 73,78, 71,32 

DATA 0,44,80,44,82,0,85,73,45,0,85,73,43,0,73,0,36,®, 
13,13,83,65,86, 73,78 

DATA 71,32,6,13,13,28,18,69,78,68,69,32,68,69,83,32, 


an 
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67,79,80,73,69,82,69 

916 DATA 78,83,32,146,31,0,13,32,87,69, 73,84, 69,82,32,77, 
65,67,72,69, 78,32, 63 

920 DATA 32,0,13,13,78,65,69,67,72,83,84,69,83,32,70,73, 
76,69,32,58,32,® 
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REM BACKUP DISKETTE => CASSETTE FUER VCEO 
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110 


129 


150 


148 


159 


168 


170 


180 


190 


208 


210 


220 


230 


240 


259 


260 


279 


286 


290 


300 


E=31156:A=29696: PS=0 

FOR I=A TO E:READ X:POKE I,X:PS=PS+X:NEXT 

IF PS<>145927 THEN PRINT"FEHLER IN DATAS":END 

SYS A:NEW 

DATA 169,25,141,15,144,169,6,141,134,2,169,19,160,12 

0,32,30, 203,169, 221 

DATA 160,119,32,30,203,32,69,119,201,69,268,1,96,32, 

98,119,32,98,119,32 

DATA 75,119,169,8,170,160,0,32,186,255,169, 1,162, 105, 
168, 121,32,189, 255 

DATA 32, 192,255,169,8,32,180,255,169,0,32, 150,255, 160 
‚4,32,165,255, 136,208 

DATA 250,32,165,255, 133, 34,32, 165,255, 166,34,32,205, 

221,32,95,119,32,165 

DATA 255,240,6,32,210,255,24,144,245,32,98,119,32,98, 
119,32,165, 255, 32,165 

DATA 255,160,0,132,3,32, 165,255, 133,4,32,165, 255,133 

‚5,166,4,32,205, 221 

DATA 32,95,119,160,9,32,165, 255, 72,32,103,119,194,15 

3,64,3,249,3,200, 208 

DATA 240,32,165,255,32,165,255,165,144,240,3,76,64,1 

17,165, 5,208, 6, 165,4 

DATA 201,93,144,10,169,133,160,120,32,39,203,76,58,1 

17,165, 3,201,48,144 

DATA 10,169,164,160,120,32,30, 203, 24,144,237,169,0,1 

33,8,169, 188, 160,120 

DATA 32,30,203,32,138,119,201,78,240,82,201,74,208,2 

45,169, 206, 160, 120,32 

DATA 30,203, 165,3,32,203,118,162,0,232,189,64,3,201, 

34,208, 248, 134,5, 232 

DATA 189,64,3,2@1,34,240,6, 145,65, 232,200, 208, 243,13 

8,164,3,24,229,5,153 

DATA 64,122,189,64,3,208,10,169,218, 160, 120,32,30,20 

3,76,58,117,201,83,240 

DATA 242,291,80,240,3,232,208,230,230,3,24,144,7,169, 
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318 


340 


359 


366 


370 


380 


398 


406 


410 


430 


440 


459 


460 


470 


480 


490 


590 


244,160, 120,32,30,203 

DATA 32,98, 119,76, 122,116,169,8,32, 195,255, 165,3, 208 

‚3,76,0,116,169,9, 160 

DATA 121,32,30,203,32,138,119,201,49,240,7,261,50, 26 

8,245, 169,0,44,169, 255 

DATA 133,5,169, 15,32, 195,255,162,0,134,4,169, 77,160, 

121,32,30,203,164,4 

DATA 190,64,122,165,4,32,203,118,177,65,32,210, 255,2 

00,202, 208, 247,169,2 

DATA 162,8,168,32,186,255,166,4,189,64,122,133,34,16 

5,4,32,203,118,162,0 

DATA 177,65, 157,64,3,200,232,198,34, 208, 245,160,0,18 

5,88, 121,157,64,3,20@ 

DATA 232,192,4,144,244,138,162,64,1660,3,32,189,255,3 

2,192,255,169,19,168 

DATA 8,132,34,133,35,169,15,162,8,168,32,186, 255,169, 
3,162, 93,160, 121,32 

DATA 189, 255,32,192,255,162,2,32,207,243,32,223,243, 

165, 186,32, 180, 255, 165 

DATA 185,32, 150, 255,166, 0,32, 165, 255,32,227, 118,166, 

144,240, 246,32,148,119 

DATA 8,169, 2,32, 195, 255,40, 144,3,32,17,119,166,4,165, 
34,133,174, 165,35, 133 

DATA 175,232, 165,4,208,13,169,247,160,119,32,30, 203, 

32,138, 119,32,2806, 119 

DATA 169, 105,160, 121,32,30,203,164,4,190,64,122,165, 

4,32,283, 118, 177,65 

DATA 32,210, 255,200, 202,208, 247,162,1,169,0,168,32,1 

86, 255,166, 4,189, 64 

DATA 122,133,34,165,4,32,203,118,162,0,177,65,157,64, 
3, 232, 2@0, 198,34, 208 

DATA 245,138, 162,64,160,3,32, 189,255, 160,0,169,19,132 
‚„172,133,173,177,172 

DATA 133,167, 200,177,172,133,168, 260, 132, 172,165, 174 

‚56, 229,172,8,24,101 

DATA 167,133,169, 165,175, 101,168, 40, 229,173,133,170, 

162,5, 134,171,32,127 

DATA 112,230,4,166,4,228,3,176,7,36,5,16,16,76,197,1 

18,169,115,160, 121,32 

DATA 30, 203,32,138,119,76,8,116,32,39,119, 169, 247,16 
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S30 


540 


3668 


570 


580 


3599 


699 


618 


630 


6408 


650 


660 


679 


688 


698 


7998 


0,119,32,30, 203,32, 138 
DATA 119,32,206,119,32,98,119,76,110,117,160,0,10,16, 
132,66,10,38,66, 10 

DATA 38,66, 133,65, 165,66, 24, 105,123, 133, 66, 160,0,96, 

145,34,230,34, 208,2 

DATA 230,35,88,96,32,165,255,41,15,10,10,10,10, 133,8 

7,32,165,255,41,15,5 

DATA 87,96,72,74,74,74,74,32,9,119,164,41,15,24,105, 

48,76,210,255, 169,141 

DATA 160,121,32,30,203,32,138,119,201,89,208,1,96,2® 

1,78, 208, 244,76, 124 

DATA 119,169, 160,160, 121,32,30,203,165,4,10,10,10,16, 
166,4, 188,64, 122,170 

DATA 189,9,123,32,210, 255, 232,136, 208,246, 96,32,228, 

255,240, 251,96,169,15 

DATA 162,8,168,32,186,255,169,1,162,101,160,121,32,1 

89,255, 76, 192, 255,169 

DATA 32,44,169,13,76,210,255,32,210, 255,138, 72, 152,7 

2,32,225,255, 24,208 

DATA 1,56,104,168,104,170,176,1,96, 162,246, 154,169,1 

5,32, 195, 255,32,231 

DATA 255,76,0,116,32, 228, 255,208, 236,32,106, 119,144, 

246,162,15,32,207,243 

DATA 32,223,243,165, 186,32, 180,255, 165, 185, 32, 150, 25 

5,32,237,118,201,32 

DATA 8,144,11,72,32,98,119,32,98,119,104,32,0,119,32, 
165, 255, 201, 13,240 

DATA 9,40,8,144,245,32,210,255,144,240,32,171,255,40 

‚96,32,183,248, 32,121 

DATA 119,208, 248, 169,7,133,192,76,8,253,13,13,13,18, 

81,85,69, 76,76, 68,73 

DATA 83,75,146,32,69,73,78,76,69,71,69,78,32,33,0,13, 
13,18, 90,73,69, 76,67 

DATA 65,83,83,69,84,84,69,146,32,69,73,78,76,69,71,69 
‚„78,33,13,0,147,17 

DATA 28,32,32,66,65,67,75,85,80,32,86,79,78,32,68, 73 

‚83,75,69,84,84,69, 13 

DATA 13,31,32,32,32,32,32,32,65,85,70,32,67,65,83,83, 
69,84,84,69,13, 13,77 

DATA 73,84,32,18,129,70,32,65,32,83,32,84,32,84,32,65 
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718 


730 


748 


759 


766 


778 


780 


798 


806 


810 


829 


8408 


850 


866 


‚32,80,32,69,32,146 
DATA 13,13,13,32,40,67,41,32,32,32,32,68, 73,82, 75,32 
‚80,65,85,76,73,83,83 

DATA 69,78,13,13,13,30,32,32,32,32,32,69,32,61,32,69, 
78, 68, 69,31,0,13,28 

DATA 18,33,33,18,32,90,85,32, 76,65, 78,71,69,32,90,85 
‚77,32,67,79,80,73,69 

DATA 82,69,78,32,31,0,13,28,18,33,33,18,32,76,73,83, 
84,69,32,73,83,84,32 

DATA 86,79,76,76,32,31,0,18,74,65,47,78,69, 73,78, 157, 
157,157, 157, 157,157 s 
DATA 157,146,31,0,18,30,32,32,74,65,32,32,146,32,31,®@ 
‚„13,28,18,33,33,18 

DATA 32,73,76,76,69,71,65,76,69,82,32,70,73,76,69,84 
‚89,80,31,0,28,18,32 

DATA 78,69,73,78,32,146,32,31,9,13,13,13,87,79,76,76, 
69,78,32,83,73,69,32 

DATA 68,73,69,32,13,80,82, 79, 71,82,65,77,77,69,13,13 
‚„32,32,49,32,32,32,32 

DATA 68,85,82,67,72,71,69,72,69,78,68,13,13,32,32,50, 
32,32,32,32,69,73,78 

DATA 90,69, 76,78,13,13,67,79,80,73,69,82,69,78,32,63 
‚0,13,13,82,69,65,68 

DATA 73,78,71,32,0,44,80,44,82,0,85,73,45,0,85,73,43, 
0,73,9,36,0,13,13,83 

DATA 65,86,73,78,71,32,9,13,13,28,18,69, 78,68, 69,32, 
68, 69,83, 32,67,79,8@ 

DATA 73,69,82,69,78,83,32,146,31,0,13,32,87,69,73,84, 
69,82,32,77,65,67,72 

DATA 69,78,32,63,32,0,13,13,78,65,69,67,72,83,84,69, 
83,32, 70, 73,76,69,32 

DATA 58,32,13,9® 
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15.4 PROGRAMMBESCHREIBUNG BACKUP DISK-CC 


Für Interessierte und der ASSEMBLER-Sprache Kundige nun noch 


eine Beschreibung des nicht gerade kurzen Programms. 


Vorbemerkung: 


Dieses Programm arbeitet mit zwei unterschiedlichen Lade- 
bzw Speicherstartadressen. Die tatsächliche Startadresse ist 
die Adresse des Puffers, unter der das Programm zum kopieren 
zwischengespeichert wird. Die eigentliche Startadresse ist 
die, unter der das Programm mormalerweise steht und 


arbeitet. 


Das Programmprinzip ist folgendes: 


Nach der Disketteninitialisierung werden zuerst die 
Filenamen eingelesen und im Cassettenpuffer ab $0340 
zwischengespeichert. Dann wird der Anwender gefragt, ob das 
Programm kopiert werden soll oder nicht. Wird die Frage mit 
"J" beantwortet, wird getestet, ob die maximale Blocklänge 
bzw. die Filenamenlistenlänge überschritten wird und ggf. 
eine Fehlermeldung ausgegeben. Wird keine Überschreitung 
festgestellt, wird der Filename und seine Länge in zwei 
Tabellen (NAMTAB, LNGTAB) hinter dem Backup-Programm 
übertragen. Weiterhin testet das Programm auch auf den 
Filetyp des zu kopierenden Files. Handelt es sich nicht um 


ein Programmfile, wird eine Fehlermeldung ausgelesen. 


Wurde auf diese Weise das ganze Inhaltsverzeichnis 
bearbeitet, wird in die eigentliche Copierroutine 


gesprungen. 


Nach Ausgabe von "READING name" wird der entsprechende 
Filename wieder in den Cassettenpuffer übertragen und ",P,R" 
angehängt. Mit dem so erweiterten Filenamen wird eine 
Lesedatei eröffnet und das entsprechende Programm nach $0900 
(vc 20 = $1300), der tatsächlichen Programmladeadresse 
(TLSADR), geladen. Wenn beim Lesen kein Fehler aufgetreten 
ist, wird der FastTape-Speicherroutine die Programmstart- 
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und Endadresse, die in den Programm-Header geschrieben 
werden soll und die tatsächliche Programmstart- und 
Endadresse, unter der das Programm zur Zeit abgespeichert 
wurde, übergeben. Danach wird zur FastTape-Routine "ABSOLUT" 
verzweigt. Anschließend wird wieder zum Start 
zurückgesprungen, falls noch weitere Files kopiert werden 


sollen. 


Ich habe das ASSEMBLER-Listing mit vielen Kommentaren 
versehen, um den Programmablauf weitgehendst klar zu machen. 


Zum Abschluß noch eine grundsätzliche Bemerkung. 


Die Diskettenstation kann mit zwei Übertragungsgeschwin- 
digkeiten arbeiten. Eine schnellere, speziell für den VC 20, 
und eine langsame für den C-64, da dieser durch die 
Bildschirmsteuerung etwas langsamer arbeitet. Schaltet man 
den Bildschirm aus, arbeitet der C-64 genauso schnell wie 
der VC 20 und kann so mit der höheren Übertragungsrate die 
Diskette ansteuern. Aus diesem Grunde wird bei dem 
Ladevorgang der Bildschirm ausgeschaltet und die Diskette 


auf die höhere Übertragungsrate umgestellt. 
Das erklärt, warum für den VC 20 die entsprechenden 


Umschaltungen, die im Listing deutlich gekennzeichnet sind, 


entfallen. 
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ANHANG 


A WICHTIGE SPEICHERSTELLEN 


Hex Dezimal Bedeutung 


+0001 1 Ausgaberegister der CPU 
Bit3 Schreibleitung für Datassette 
Bit4 CASS-SENS, Recordertastenabf. 


Bit5 Motorsteuerung 


000A 10 LOAD/VERIFY - Flag; O=LOAD/1=VERIFY 

002B-002C 33 - 34 Zeiger Basic-RAM-Start 

002D-OO2E 35 - 36 Zeiger Basicprogramm Ende/Variablen Start 

002F-0030 37 - 38 Zeiger Beginn der Felder 

0031-0032 49 - 50 Zeiger Ende der Felder 

0033-0034 51 - 52 Zeiger auf Ende der Strings 

0037-0038 55 - 56 Zeiger auf Ende des Basic-RAM 

0090 144 Statusbyte 

0093 147 LOAD/VERIFY - Flag; O=LOAD/1=VERIFY 

0098 152 Anzahl der offenen Files 

0099 153 Eingabegerät 

009A 154 Ausgabegerät 

OOA6 166 Zeiger in Cassettenpuffer 

OOAC-OOAD 172 - 173 Zeiger auf aktuelles Byte beim Schreiben 
und Lesen 

OOAE-OOAF 174 - 175 Zeiger auf Prg. Ende beim Lesen/Schreiben 

00B2-00B3 178 - 179 Zeiger auf Start des Cassettenpuffers 

00B7 183 Filenamenlänge 

00B8 184 Aktuelle logische Filenummer 

00B9 185 Aktuelle Sekundäradresse 

00BA 186 Aktuelle Geräteadresse 

OOBE 190 Pass-Zähler beim Lesen und Schreiben 

OOBD 191 Ein-/Ausgabebyte 

00CO 192 Cassettenmotor Flag 

00C1-00C2 193 - 194 Ein-/Ausgabe Startadresse 

00C3-00C4 195 - 196 Ein-/Ausgabe Endadresse 

0O33C-O3FB 828 - 1019 Cassettenpuffer 
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033C 828 
033D-033E 829 
033F-0340 831 


0341- 833 
*911c 37148 
*911F 37151 
*9120 37152 


+ : Gilt nur für 


* . Gilt nur für 


- 830 
- 832 
C-64 
vc 20 


Filetyp 

Prg. Startadresse 

Prg. Endadresse 

Filenamen 

Bit5 Cassettenmotor Schalter 

Bit6 CASS-SENS; Recordertastenabfr. 
Bit3 Schreibleitung 
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Laden, Starten- 










DIE DISKETTE ZUM BUCH 


Über 500.000 DATA BECKER Bücher sind bisher verkauft und 
das nicht ohne Grund. Die beliebten DATA BECKER Stan- 
dardwerke zum VC 20 und zum COMMODORE 64 stecken 
voller Programmiertips und Listings, die jeder Leser 
am liebsten sofort am Gerät ausprobieren möchte. 
Doch ohne fleißiges Abtippen der Programme 
läuft nichts. Abtippen ist so langweilig wie 
unzuverlässig; der kleinste Tippfehler kann 
den ganzen Spaß verderben. Ab sofort 
nimmt Ihnen DATA BECKER diese 
Arbeit ab. Die DISKETTEN ZUM BUCH 
enthalten alle Programme und 
Utilities, die Sie als Listing im jeweiligen 
Buch finden. Diskette ins Laufwerk, ge- 
wünschtes Programm laden, starten 
und schon können Sie mit der ausge- 
tüftelten Software der DATA BECKER 
Autoren arbeiten. Und: Sie haben die 
Sicherheit, daß diese Programme 
wirklich auf Anhieb laufen. 

Ist das nichts? 





Die Diskette zum Buch: 
Das große Drucker-Buch. DM 39,- 


Die Diskette zum Buch: 
Das Maschinensprachebuch 


zum COMMODORE 64. DM 39,- & 
Die Diskette zum Buch: 


Die Diskette zum Buch: Pascal 64 Tips & Tricks 


Das Maschinensprachebuch für DM 39,- 
Fortgeschrittene zum COMMODORE ; 

64. DM 39,- Die Diskette zum Buch: 

Das Grafikbuch zum 

Die Diskette zum Buch: COMMODORE 64. DM+39,- 


Das große Floppy-Buch. DM 39,- 
Die Diskette zum Buch: 
Die Diskette zum Buch: 64 INTERN. DM 39,- Be 


64 Tips & Tricks. DM 39,- Die Diskette zum Buch: 


Die Diskette zum Buch: Das Trainingsbuch zu Datamat 
Die Diskette zum Buch: Das 64 für Profis. DM 39,- DM 39,- 
Schulbuch zum COMMODORE 64. Sr 
Diese Superdiskette enthält zusätz- Die Diskette zum Buch: Die Diskette zum Buch: 
lich Soch 44 weitere IEFnBSBTEIMe VC-20 Tips & Tricks. DM 39,- ee Adventures - 
und ein ca. 70seitiges Handbuch. i i i 
Ein absolutes Muß für Schüler, Lehrer Die Diskette zum Buch: ENDE 


und Eltern. DM 49,- APPLE II Tips & Tricks. DM 39,- 


DATA BECKER BÜCHER & PROGRAMME erhalten Sie im Computer-Fachhandel, in guten 
Buchhandlungen und in den Fachabteilungen der Kauf- und Warenhäuser. 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 3100 10 : im Hause AUTO BECKER 


Spickzettel 
ade. ee 
Ein neues DATA BECKER BUCH, (oD0 
das den Einsatz des COMMO- 
DORE 64 in der Schule ent- 
scheidend mitprägen dürfte, 
wurde von Professor Voß 
geschrieben. Besonders für 
Schüler der Mittel- und Ober- 
stufe geschrieben, enthält 
das Buch viele interessante 
Problemlösungs- und Lernprogramme, die beson- 
ders ausführlich und leicht verständlich beschrie- 
ben sind. Sie ermöglichen ein intensives und anre- 
gendesLernen, unteranderem mitfolgendenThe- 
men: Satz des Pythagoras, quadratische Gleichun- 
gen, geometrische Reihen, Pendelbewegungen, 
mechanische Hebel, Molekülbildung, exponentiel- 
lesWachstum, Vokabelnlernen, unregelmäßigeVer- 
ben, Zinseszinsrechnung. Ein kurzer Überblick über 
die Grundlagen derEDV, eine knappeWiederholung 
der wichtigsten BASIC-Elemente und eine Einfüh- 
rung in die Grundzüge der Problemanalyse vervoll- 
ständigen das Ganze. Mit diesem Buch machen die 
Hausaufgaben wieder Spaß! 


DAS SCHULBUCH ZUM COMMODORE 64, 1984, über 300 
Seiten, DM 49- 


Tempo! 


MASCHINENSPRACHE FÜR 
FORTGESCHRITTENE ist be- 
reits das zweite Buch von 
Lothar Englisch zum Thema 
Maschinenprogrammierung 
mit dem COMMODORE 64. 
Hier wird von der Problem- 
analyse bis zum Maschinen- 
sprachealgorithmus in die um oara sacxan such 
Grundlagen der professio- 
nellen Maschinensprache- 
programmierung eingeführt. In diesem Buch fin- 
den Sie unter anderem folgende Themen behan- 
deit: Problemlösungen in Maschinenspraäche, Pro- 
grammierung von Interruptroutinen, Interrupt- 
quellen beim COMMODORE 64, Interrupts durch 
CIAs und Videocontroller, Programmierung der 
Ein-Ausgabe-Bausteine, die CIA's des COMMODORE 
64, Timer, Echtzeituhr, parallele und serielle Ein/ 
Ausgabe, BASIC-Erweiterungen, Programmierung 
eigener BASIC-Befehle und -Funktionen, Möglich- 
keiten zur Einbindung ins Betriebssystem sowie 
viele weitere Tips & Tricks zur Maschinenprogram- 
mierung. Dieses Buch sollte jeder haben, der wirk- 
lich intensiv mit der Maschinensprache des COM- 
MODORE 64 arbeiten will. 


MASCHINENSPRACHE FÜR FORTGESCHRITTENE, 1984, 
ca. 200 Seiten, DM 39,- 


COMMODORE 64 








Macht Druck. 


DAS GROSSE DRUCKERBUCH 
für Drucker-Anwender mit 
COMMODORE-Computern ist 
endlich da! Es enthält eine 
riesige Sammlung von Tips 
& Tricks, Programmlistings 
und Hardwareinformatio- 
nen. Rolf Brückmann und. 
Klaus Gerits beschäftigen 
sich mit Sekundäradressen, 
Anschluß einer Schreib- 
maschine am Userport, Druckerschnittstellen (Cen- 
tronics, V 24, IEC-Bus), hochauflösender Grafik, Text- 
und Grafikhardcopy, Grafik mit Standardzeichen- 
satz, formatierter Datenausgabe, Plakatschrift, 
Textverarbeitung und vieles mehr. Zusätzlich wird 
das Betriebssystem des MPS801 zerlegt, mit Prozes- 
sorbeschreibung (8035), Blockschaltbild und einem 
ausführlich kommentierten ROM-Listing. Thomas 
wiens schrieb den Teil über die Programmierung 
des PlottersVC-1520:Handhabung desPlotters, Pro- 
grammierung von Sonderzeichen, Funktionendar- 
stellung, Kuchen und Säulendiagramme, Entwurf 
dreidimensionaler Gegenstände. Natürlich wieder 
viele interessante Listings. Unentbehrlich für 
jeden, der einen COMMODORE 64 oder VC-20 und 
einen Drucker besitzt. 


DAS GROSSE DRUCKERBUCH, 1984, über 300 Seiten, 
DM 49,- 


Tausend- 
sassa. 


Fast alles, was man mit dem 
COMMODORE 64 machen 
kann, ist in diesem Buch aus- 
führlich beschrieben. Es ist 
nicht nur spannend zu lesen 
wie ein Roman, sondern ent- 
hält neben nützlichen Pro- 
grammlistings vor allem 
viele, viele Anwendungs- 
möglichkeiten des C64. Dabei wurde besonderer 
Wert darauf gelegt, daß das Buch auch für Laien 
leicht verständlich ist. Eine Auswahl aus der The- 
menvielfalt: Gedichte vom Computer, Einladung 
zur Party, Diplomarbeit - professionell gestaltet, 
individuelle Werbebriefe, Autokosten im Griff, Bau- 
kostenberechnung, Taschenrechner, Rezeptkartei, 
Lagerliste, persönliches Gesundheitsarchiv, Diät- 
plan elektronisch, intelligentes Wörterbuch, kleine 
Notenschule, CAD für Handarbeit, Routenoptimie- 
rung, Schaufensterwerbung, Strategiespiele. Teil- 
weise sind Programmlistings fertig zum Eintippen 
enthalten, soweit sich die „Rezepte" auf 1-2 Seiten 
realisieren ließen. Wenn Sie bisher nicht immer 
wußten, was Sie mit Ihrem 64er alles anfangen soll- 
ten, nach dem Lesen des IDEENBUCHES wissen Sie's 
bestimmt! 


DAS IDEENBUCH ZUM COMMODORE 64, 1984, über 200 
Seiten, DM 29,- 


EIN DATA BECKER BUCH 





EM DATABECKER BUCH 





Prof. 64. 


Ein faszinierendes Buch, um COMMODORE 64 
in die Welt der Wissenschaft rüR Hein 

einzusteigen, hat Rainer 

Severin geschrieben. Zu- 
nächst werden Variablen- 
typen, Rechengenauigkeit 
und nützliche POKE-Adres- 
sen des COMMODORE 64 IRRE Near: 
bezüglich den Anforderun- OR ÄECHER TUCH 
gen wissenschaftlicher Pro- 
bleme analysiert. Verschie- 
dene Sortieralgorithmen wie Bubble, Quick und 
Shell-Sort werden miteinander verglichen. Die Pro- 
grammbeispiele aus der Mathematik nehmen 
dabei eine zentrale Stelle im Buch ein: Nullstellen 
nach Newton, numerische Ableitung mit dem Dif- 
ferenzenquotienten, lineare und nichtlineare 
Regression, Chi-Quadrat-Verteilung und Anpas- 
sungstest, Fourieranalyse und -synthese, Skalar-, 
Vektor- und Spatprodukt, ein Programmpaket zur 
Matrizenrechnung für Inversion, Eigenwerte und 
vieles weitere mehr. Programme aus der Chemie 
(Periodensystem), Physik, Biologie (Schadstoffe in 
Gewässern - Erfassung der Meßwerte), Astronomie 
(Planetenpositionen) und Technik (Berechnung 
komplexer Netzwerke, Platinenlayout am Bild- 
schirm) und viele weitere Softwarelistings zeigen 
die riesigen Möglichkeiten auf, dieder Computerin 
wissenschaft und Technik hat. 


COMMODORE 64 FÜR TECHNIK UND WISSENSCHAFT, 
1984, über 200 Seiten, DM 49,- 


WISSENSCHAFT 


Grundkurs. PM 


Das neue BAsSIC-Trainings- 
buch zum C-64 ist eine aus- 

führliche, didaktisch gut ||| „ale , 
geschriebene Einführung in iin 
das CBM BASIC V2. Alle COMMODORE 64 
Befehle werden ausführlich 
erläutert. Dieses Buch geht 
aber über eine reine Befehis- 
beschreibung hinaus, es wird Em Data necnen auca 
eine fundierte Einführung in 
die Programmierung gege- 
ben. Von der Problemanalyse bis zum fertigen 
Algorithmus lernt man das Entwerfen eines Pro- 
grammes und den Entwurf von Datenflußplänen. 
ASCII-Code und verschiedene Zahlensysteme wie 
hexadezimal, binär und dezimal sind nach der Lek- 
türe des Buches keine Fremdworte menr. Die Pro- 
grammierung von Schleifen, Sprüngen, bedingten 
Sprüngen lernt man leicht durch ‚learning by 
doing”. So enthält das Trainingsbuch viele Auf- 
gaben, Übungen und unzählige Beispiele. Den 
Schluß des Buches bildet eine Einführung ins pro- 
fessionelle Programmieren, in der es um mehr- 
dimensionale Felder, Menuesteuerung und Unter- 
programmtechnik geht. Endlich ein Buch, das 
Ihnen wirklich hilft, solide und sicher BASIC zu ler- 
nen. 


BASIC TRAININGSBUCH ZUM COMMODORE 64, 1984, 
ca. 250 Seiten, DM 39,- 


DAS 











Sang und Klang! 


Der COMMODORE 64 ist ein 
Musikgenie. DAS MUSIKBUCH 
hilft Ihnen, die riesigen 
Klangmöglichkeiten des C64 
zu nutzen. DieThemenbreite 
reicht von einer Einführung 
in die Computermusik über 
die Erklärung der Hardware- 
grundlagen desCOMMODORE 
64 und die Programmierung 
in BASIC bis hin zur fort- 
geschrittenen Musikpro- 
grammierung in Maschinensprache. Einiges aus 
dem Inhalt: Soundregister des COMMODORE 64, 
Gate-Signal, Programmierung der "ADSR'-Werte, 
Synchronisation und Ring-Modulation, Counter- 
prinzip, lineare und nichtlineare Musikprogram- 
mierung, Frequenzmodulation, Interrupts in der 
Musikprogrammierung und vieles mehr. Zahl- 
reiche Beispielprogramme, komplette Songs und 
nützliche Routinen ergänzen den Text. Geschrie- 
ben wurde das Buch von Thomas Dachsel, dem 
Autor der weltbekannten Musikprogramme Syn- 
thimat und Synthesound. Erschließen Sie sich die 
Welt des Sounds und der Computermusik mit dem 
Musikbuch zum C-64! 


DAS MUSIKBUCH ZUM COMMODORE 64, über 200 Sei- 
ten, DM 39,- 


Nützlich. 


Das Trainingsbuch zu MULTI- 
PLANbieteteineguteEinfüh- 
rung in die Grundlagen der 
Tabellenkalkulation. Dabei 
wird großer Wert auf ein 
möglichstschnellesEinarbei- 
ten in die wichtigsten 
Befehle gelegt, so daß man 
bald sicher mit MULTIPLAN : 
arbeiten kann, ob nun auf ! 
dem COMMODORE 64 oder wmoarasscxensuch | | 
einem anderen Rechner. Am — 
Ende wird man in der Lage sein, den umfangrei- 
chen Befehlssatz von MULTIPLAN auch kommerziell 
zu nutzen. Übungen am Endejedes Kapitelssorgen 
dafür, daß man das Gelernte lange behält. Grund- 
lage des Buches sind viele Seminare, die der Autor 
zu MULTIPLAN konzipiert und erfolgreich durch- 
geführt hat. 


DAS TRAININGSBUCH ZU MULTIPLAN, 1984, ca. 250 Sei- 
ten, DM 49,- 











Für Tüftler. 


Ein hochinteressantes Buch 
für Hobbyelektroniker hat rcamanı 
Rolf Brückmann vorgelegt. 
Er ist ein engagierter Techni- DER 
ker, für den der Computer era 
Hobby und Beruf zur glei- DER REST DER WELT 
chen Zeit ist. Vor allem aber 
kennt er den C-64in- und aus- 
wendig. So werden einfüh- 
rend die Schnittstellen des 
COMMODORE 64 detailliert | 
beschrieben und kurz die 

Funktionsweise der CiAs 6526 erläutert. Hauptteil 
des Buches sind die Beschreibungen der vielfälti- 
gen Einsatzmöglichkeiten des COMMODORE 64. Die 
vielen Schaltungen, von Roif Brückmann alleselbst 





entwickeit, sind jeweils umfangreich dokumen- 
tiert und leichtverständlich erklärt. Die Reihe der 
hier ausführlich behandelten Anwendungen mit 
dem COMMODORE 64 ist äußerst umfangreich: 
Motorsteuerung, Stoppuhr mit Lichtschranke, 
Lichtorgel, A/D-Wandier, Spannungsmessung, Tem- 
peraturmessung und vieles mehr. Dazu kommen 
noch eine Reihe kompletter Schaltungen zum Sel- 
berbauen, wie ein EPROM Programmiergerät für 
den C-64, eine EPROM-Karte, ein Frequenzzähler 
und Sprachein/ausgabe (!). Zusätzlich sind jeweils 
Schaltplan, Softwarelisting und zu einigen Schal- 
nnden sogar zusätzlich Platinenlayouts vorhan- 
en. 


DER COMMODORE 64 UND DER REST DER WELT, 1984, 
ca. 220 Seiten, DM 49,- 


Computerkünstler. 


Das Grafikbuch zum COMMODORE 64 Buch aus der 
Bestseller-Serie von DATA BECKER stammt aus der 
Feder von Axel Plenge. Es geht weit über die reine 
Hardware-Beschreibung der 
Grafikeigenschaften desc-64 
hinaus. Der Inhalt reicht von 
den Grundlagen der Grafik- 
programmierung bis zum 
Computer Aided Design. Es DAS 

ist ein Buch für alle, die mit SRAFINDUCH 
ihrem C-64 Kreativ tätig sein 
wollen. Themen sind z.B.: Zei- 
chensatzprogrammierung, 
bewegte Sprites, High-Re- 
solution, Multicolor-Grafik, 
Lighntpenanwendungen, Be- 
triebsarten des VIC, Verschie- 
ben der Bildschirmspeicher, 
IRQ-Handhabung, 3-Dimensionale Grafik, Projektio- 
nen, Kurven- Balken- und Kuchendiagramme, Lauf- 
schriften, Animation, bewegte Bilder. Viele Pro- 
grammlistings und Beispiele sind selbstverständ- 
lich. Das COMMODORE-BASIC V2 unterstützt die her- 
ausragenden Grafikeigenschaften des C-64 be- 
kanntlich kaum. Hier helfen die vielen Beispielpro- 
gramme in diesem Buch weiter, die die faszinie- 
rende Welt der Computergrafik jedermann zu- 
gänglich machen. Kompetent ist der Autor dazu wie 
kaum ein anderer, schließlich hat er das äußerst lei- 
stungsfähige Programm SUPERGRAFIK geschrieben. 


DAS GRAFIKBUCH ZUM COMMODORE 64, 1984, 295 Sei- 
ten, DM 39,- 


Menge 





. 


Vielfalt. 


Auf dem neuesten Stand ist 
VC-20 TIPS & TRICKS von Dirk 
Paulissen gebracht worden, 
der über hundert Seiten 
hinzufügte. Bisher schon 
enthalten wareninformatio- 
nen über Speicheraufbau 


Angerneusen Awaner 
Schelenberger Feusszen 


VC-20 


Tips & Tricks 
des VC-20 und die Erweite- Instanz 


m 


rungsmöglichkeiten, einGra- 
fikkapitel über program- 
mierbare Zeichen, Lauf- 
schrift und die Supererwei- ; 

terung. Stark erweitert wurde der Abschnitt über 
POKEs und andere nützliche Routinen.Ob esum die 
Programmierung der Funktionstasten, Pro- 
gramme die sich selber starten, „Maus’-Simulation 
mit dem Joystick oder die Anderung von Speicher- 
bereichen geht, man Ist immer wieder über die 
Fülle der Möglichkeiten erstaunt. Der Clou dieses 
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Buches sind aber die vielen Programmlistings. Die 
BASIC-Erweiterungen allein stellen schon ein erst- 
klassiges Toolkit dar: APPEND (Anhängen von Pro- 
grammen, AUTO (automatische Zeilennummerie- 
rung), BASIC-Befehle auf Tastendruck, PRINT POSI- 
TION, UNNEW, Strings größer als88 Zeichen einlesen 
und vieles mehr. Die Bandbreitereicht von Spielen 
wie Goldgräber oder Starshooter bis zu nützlichen 
Programmen wie Cassetteninhaltsverzeichnis und 
katalog mit automatischem Suchen nach Dateien 
und einem Terminkalender. Für den VC-20 Anwen- 
der ist dieser 324 Seiten-Wälzer eine wahre Fund- 
Euren in der es immer etwas neues zu entdecken 
gibt. 


VC-20 TIPS& TRICKS, 3.erweiterteund überarbeitete 
Auflage, 1984, 324 Seiten, DM 49,- 


Interessant. 


Einen guten Einstieg in PAS- 
CAL bietet dieses Trainings- 
buch. Es gibt eine leichtver- 
ständliche Einführung, 
sowohl in UCSD-PASCAL wie 
auch in PASCAL64, wohei 
allerdings EDV-und BASIC- 
Grundkenntnisse voraus- rer 
gesetzt werden. Der Autor, 
Ottmar Korbmacher, ist Stu- 
dent der Mathematik. Ihm 
gelingt es, in einem sprach- 
lich aufgelockerten Stil mit vielen interessanten 
Beispielprogrammen, dem Leser Programmstruk- 
turen, Ein/Ausgabe, Arithmetik und Funktionen, 
Prozeduren und Rekursionen, Sets, Files und 
Records näherzubringen. Die Übungsaufgaben am 
Ende jeden Kapitels helfen dabei, das Gelernte zu 
vertiefen. Ein Anhang mit allen PASCAL-Schlüssel- 
worten, der ansich schon ein umfangreiches Lexi- 
kon darstellt, macht das Buch für jeden PASCAL- 
Anwender interessant. 


DAS TRAININGSBUCH ZU PASCAL, 1984, ca. 250 Seiten; 
DM 39- 





Bewährt. 


Die bereits dritte Auflage 
von VC-20 INTERN ist wieder 
erheblich erweitert worden. 
Das Buch beschäftigt sich 
ausführlich mit der Technik 
und dem Betriebssystem des 
VC-20. Dazu gehört natürlich 
zuerst einmal ein ausführlich 
dokumentiertesROM-Listing. 
Dazu gehört auch die Bele- 
gung der Zeropage, dem 
wichtigsten Speicherbe- 
reich für den 6502-Prozessor, eine übersichtliche 
Auflistung der Adressen aller Betriebssystemrouti- 
nen, ihrer Bedeutung und ihrer Übergabeparame- 
ter. Dies ermöglicht dem Programmierer endlich, 
den VC-20 von Maschinensprache aus sinnvoll ein- 
zusetzen. Denn warum Routinen, die bereits vor- 
handen sind, noch einmal schreiben? Weiterer 
Inhalt: Einführung in die Maschinensprache - 
Maschinensprachemonitor, Assembler, Disassem- 
bler - Verbindung von Maschinensprache- und 
BASIC-Programmen - Beschreibung der wichtigen 
IC's des VC-20 - Blockschaltbild - drei Original COM- 
MODORE-Schaltpläne. Das Buch braucht jeder der 
sich intensiv mit der Maschinenspracheprogram- 
mierung des VC-20 auseinandersetzen möchte. 


VC-20 INTERN, 3. Auflage, 1984, ca. 230 Seiten, DM 49,- 





Starthilfe! 


DassollteihrerstesBuchzum 
COMMODORE 64 sein: 64 FÜR 
EINSTEIGER ist eine sehr 
leicht verständliche Einfüh- 
rung in Handhabung, Ein- 
satz, Ausbaumöglichkeiten FÜR EINSTEIGER 


und Programmierung des gov! 
COMMODORE 64, die keinerlei 2] 
Vorkenntnisse voraussetzt. Bi” 


Sie reicht vom Anschluß des 31 
Geräts über die Erklärung 
der einzelnen Tasten und 
Funktionen sowie die Peripheriegeräte und ihre 
Bedienung bis zum ersten Befehl. Schritt für 
Schritt führt das Buch Sie in die Programmier- 
sprache BASIC ein, wobei Sie nach und nach eine 
komplette Adressenverwaltung erstellen, die Sie 
anschließend nutzen können. Zahlreiche Abbildun- 
gen und Bildschirmfotos ergänzen den Text. Viele 
Anwendungsbeispiele geben nützliche Anregun- 
gen zum sinnvollen Einsatz des COMMODORE 64. Das 
Buch istsowonhl als Einführung alsauch als Orientie- 
rung vor dem 64er Kauf gut geeignet. 


64 FÜR EINSTEIGER, 1984, ca. 200 Seiten, DM 29, 
Von A bis 2. 


So etwas haben Sie gesucht: Umfassendes Nach- 
schlagewerk zum COMMODORE 64 und seiner Pro- 
grammierung. Allgemeines Computerlexikon mit 
Fachwissen von A-Z und 
Fachwörterbuch mit Über- 
setzungen wichtiger engli- 
scher Fachbegriffe - das 
DATA BECKER LEXIKON ZUM 
COMMODORE 64 stellt prak- 
tisch drei Bücher in einem 
dar. Es enthält eine unglaub- 
liche Vielfalt an Informatio- 
nen und dient so zugleich als 
kompetentes Nachschlage- 
werk und als unentbehr- 
liches Arbeitsmittel. Viele 
Abbildungen und Beispiele ergänzen den Text. Ein 
Muß für jeden COMMODORE 64 Anwender! 


DAS DATA BECKER LEXIKON ZUM COMMODORE 64, 
1984, 354 Seiten, DM 49,- 


Fundgrube. 


64 Tips & Tricks ist eine hoch- 
interessante Sammlung von 
Anregungen zur fortge- 
schrittenen Programmie- 
rung des COMMODORE 64, 
POKEs und andere nütz- 
liche Routinen, interessan- 
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Tips & Tricks 
ten Programmen sowie kmatınemınn me 


COMmEOSOE 14 Anermeer 


interessanten Programmier- 
tips & -tricks. Aus dem Inhalt: 
3D-Graphik in BASIC-Farbige 
Balkengraphik - Definition 
eines eigenen Zeichensatzes - Tastaturbelegung 
und ihre Anderung - Dateneingabe mit Komfort - 
Simulation der Maus mit einem Joystick - BASIC für 
Fortgeschrittene - C-64 spricht deutsch -CP/M auf 
dem COMMODORE 64 - Druckeranschluß über den 
USER-Port - Datenübertragung von und zu ande- 
ren Rechnern -Expansion-Port-SynthesizerinSte- 
reo - Retten einer nicht ordnungsgemäß geschlos- 
senen Datei - Erzeugen einer BASIC-Zeile in BASIC - 
Kassettenpuffer als Datenspeicher - Sortieren von 
Stringfelder - Multitasking auf dem COMMODORE 
64 - POKE's und die Zeropage - GOTO, GOSUB und 
RESTORE mit berechneten Zeilennummern, INSTR 
und STRING-Funktion - Repeat-Funktion für alle 
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Tasten - und vieles andere mehr. Alle Maschinen- 
programme mit BASIC-Ladeprogrammen. 64 Tips& 
Tricks ist eine echte Fundgrube für jeden COMMO- 
DORE 64 Anwender. Schon über 65000mal verkauft! 


64 TIPS & TRICKS, 1984, über 300 Seiten, DM 49,- 


Know-how! 


350 Seiten dick ist die 4. 
erweiterte und überarbei- 
tete Auflage von 64 INTERN 
geworden. Das bereits über 
65000mal verkaufte Stan- 
dardwerk bietet jetzt noch 
mehr Informationen. Hinzu- 
gekommen ist ein Kapitel 
über den IEC-Bus und viele, 
viele Ergänzungen, die sich 
im Laufe der Zeit angesam- 
melt haben. Ebenfalls über- : 

arbeitet und noch ausführlicher ist jetzt die Doku- 
mentation des ROM-Listings. Weitere Themen: 
genaue Beschreibung des Sound- und Video-Con- 
trollers mit vielen Hinweisen zur Programmierung 
von Sound und Grafik, der Ein/Ausgabesteuerung 
(CIAs), BASIC-Erweiterungen (RENEW, HARDCOPY, 
PRINTUSING), Hinweise zur Maschinenprogrammie- 
rung wie Nutzung der E/A-Routinen des Betriebs- 
systems, Programmierung der SchnittstelleRS 232, 
ein Vergleich VC20 - C-64 - CBM zur Umsetzung von 
Programmen. Dies und viele weitere Informatio- 
nen machen das umfangreiche Werk zu einem 
unentbehrlichen Arbeitsmittel für jeden, der sich 
ernsthaft mit Betriebssystem und Technik des C-64 
auseinandersetzen will. Zum professionellen 
Gehalt des Buches tragen auch zwei Original-COM- 
MODORE-Schaltpläne zum Ausklappen und zahl- 
reiche ausführlich beschriebene und dokumen- 
tierte Fotos, Schaltbilder und Blockdiagrammebei. 


64 INTERN, 4.überarbeitete und erweiterte Auflage, 
1984, ca. 350 Seiten, DM 69 - 
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Erfolgreich. 


64 für Profis zeigt, wie man 
erfolgreich Anwendungs- 
probleme in BASIC löst und a 
verrät die Erfolgsgeheim- 
nisse der Programmier- 64 
profis. Vom Programment- .. 

wurf über Menüsteuerung, für Profis 
Maskenaufbau, Parametri- 
sierung, Datenzugriff und 
Druckausgabe bis hin zur 
guten Dokumentation wird 
anschaulich mit vielen Bei- 
spielen dargestellt wie Profi-Programmierung vor 
sich geht. Besonders stolz sind wir auf die völlig 
neuartige Datenzugriffsmethode QUISAM, die in 
diesem Buch zum ersten Mal vorgestellt wird. 
QUISAM erlaubt eine beliebige Datensatzlänge, die 
dynamisch mit der Eingabe der Daten wächst. Eine 
lauffertige Literaturstellenverwaltung veran- 
schaulicht die Arbeitsweise von QUISAM. Nebendie- 
sem Programm finden Sie noch weitere Pro- 
grammezurLager- und Adressenverwaltung, Text- 
verarbeitung und einen Reportgenerator. Alle 
diese Programme sind mit Variablenliste versehen 
und ausführlich beschrieben. Damit sind diese für 
Ihre Erweiterungen offen und können von Ihnen 
an Ihre persönlichen Bedürfnisse angepaßt wer- 
den. Steigen Sie in die Welt der Programmierprofis 
ein. 

64 FÜR PROFIS, 2. Auflage, 1984, ca. 300 Seiten, 
DM 49, 
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Rundum gut! 


Endlich ein Buch, das Ihnen 
ausführlich und verständlich 
die Arbeit mit der Floppy VC- 
1541 erklärt. Das große 
Floppybuch ist für Anfänger, Das große 
Fortgeschrittene und Profis Floppy- 
gleichermaßen. interessant. 

Sein Inhalt reicht von der 
Programmspeicherung bis 
zum DOS-Zugriff, von der 
sequentiellen Datenspeiche- ee 
rung bis zum Direktzugriff, 
von der technischen Beschreibung bis zum aus- 


führlich dokumentierten DOS-Listing, von den 
Systembefehlen bis zur detaillierten Beschreibung 
der Programme auf der Test-Demo-Diskette. Exakt 
beschriebene Beispiel- undHilfsprogramme ergän- 
zen dieses neue Superbuch. Aus dem Inhalt: Spei- 
chern von Programmen -Floppy-Systembefehle - 
Sequentielle Datenspeicherung - relative Daten- 
speicherung - Fehlermeldungen und ihre Ursa- 
chen - Direktzugriff - DOS-Listing der VC-1541 - 
BASIC-Erweiterungen und Programme - Overlay- 
technik - Diskmonitor - IEC-Bus und serieller Bus - 
Vergleich mit den großen CBM-Floppies. EinMußfür 
jeden Floppy-Anwender! Bereits über 45.000mal 
verkauft. 


DAS GROSSE FLOPPY-BUCH, 2. überarbeitete Auflage, 
1984, ca. 320 Seiten, DM 49,- 









BASIC-PLUS. 


SIMON’s BASIC ist ein Hit - 
wenn man es richtig nutzen 
kann. Auf über 300 Seiten 
erklärt Ihnen das DATA 
BECKER Trainingsbuch detail- 
liert den Umgang mit den 
über 100 Befehlen des 
SIMON's BASIC. Alle Befehle 
werden ausführlich dar- 
gestellt, auch die, die nicht 
im Handbuch stehen! Natür- SERIEN" 
lich zeigen wir auch die 
Macken des SIMON's BASIC und geben wichtigeHin- 
weise wie man diese umgeht. Natürlich enthält das 
Buch viele Beispielprogramme und viele inter- 
essante Programmiertricks. Weiterer Inhalt: Ein- 
führung in das CBM-BASIC 2.0 - Programmierhilfen 
- Fehlerbehandiung - Programmschutz - Pro- 
grammstruktur - Variablen - Zahlenbehandlung - 
Eingabekontrolle-Ein/Ausgabe Peripheriebefehle 
- Graphik - Zeichensatzerstellung - Sprites - Musik 
-SIMON’SBASIC und dieVerträglichkeitmitanderen 
Erweiterungen und Programmen. Dazu ein um- 
fangreicher Anhang. Nach jedem Kapitel finden Sie 
Testaufgaben zum optimalen Selbststudium und 
zur Lernerfolgskontrolle. 


DAS TRAININGSBUCH ZUM SIMON’s BASIC, 2. über- 
arbeitete Auflage, 1984, ca. 380 Seiten, DM 49,- 





Füttern 
erwünscht! 


Diese beliebteumfangreiche |j] PA BECKER's 
Programmsammlung hat es 64er 
in sich. Über 50 Spitzenpro- PROGRAMM- 
gramme für den COMMO- SAMMLUNG 
DORE 64 aus den unterschied- 
lichsten Bereichen, von 
attraktiven Superspielen 
(Senso, Pengo, Master Mind, 
Seeschlacht, Poisson Square, 
Memory) über Grafik- und 
Soundprogramme (Fourier 64, Akustograph, Funk- 
tionsplotter) und mathematische Programme 
(Kurvendiskussion, Dreieck) sowie Utilities (SORT, 
RENUMBER, DISK INIT, MENUB) bis hin zu kompletten 
Anwendungsprogrammen wie ‚Videothek‘, „File 
Manager’ und einer komfortablen Haushaltsbuch- 
führung, inder fast professionellgebucht wird.Der 
Hit zu jedem Programm sind aktuelle Program- 
miertips und Tricks der einzelnen Autoren zum Sel- 
bermachen. Also nicht nurabtippen, sondern auch 
dabei lernen und wichtige Anregungen für die 
eigene Programmierung sammeln. 


DATA BECKER’s GROSSE 64er PROGRAMMSAMMLUNG, 
1984, 250 Seiten, DM 49 





Schrittmacher. 


Eine leicht verständliche Ein- 
führung in die Maschinen- 
spracheprogrammierung 
für alle, denen das C-64 BASIC 
nicht mehr ausreicht. Sie 
lernen Aufbau und Arbeits- 
weise des 6510-Mikroprozes- 
sors kennen und anwenden. 
Dabei werden die Analogien ’ 
zu BASIC Ihnen beim Verständnis helfen. Ein weite- 
res Kapitel beschäftigt sich mit der Eingabe von 
Maschinenprogrammen. Dort erfahren Sie auch 
alles über Monitor-Programme sowie über Assem- 
bler. zum einfachen und komfortablen Erstellen 
Ihrer eigenen Maschinensprache enthält das Buch 
einen kompletten ASSEMBLER, damit Sie gleich von 
Anfang an komfortabel und effektiv programmie- 
ren können. Weiterhin finden Sie dort einen DIS- 
ASSEMBLER, mit dem Sie sich Ihre Maschinenpro- 
gramme oder die Routinen des BASIC-Interpreters 
und des BASIC-Betriebssystems ansehen können. 
Ein besonderer Clou ist ein in BASIC geschriebener 
Einzelschrittsimulator, mit dem Sie Ihre Pro- 
gramme schrittweise ausführen können. Dabei 
werden Sie nach jedem Schritt über Register- 
inhalte und Flags informiert und können den logi- 
schen Ablauf Ihres Programmes verfolgen. Eine 
unschätzbare Hilfe, besonders für den Anfänger. 
Als Beispielprogramm finden Sie ausführlich 
beschriebene Routinen zur Grafikprogrammie- 
rung und für BASIC-Erweiterungen. Natürlich sind 
alle Beispiele und Programme auf den C-64 zuge- 
schnitten. 


DAS MASCHINENSPRACHEBUCH ZUM COMMODORE 64, 
ca. 200 Seiten, DM 39,- 








SYNTHIMAT 


SYNTHIMAT verwandelt Ihren COMMODORE 64 in 
einen professionellen, polyphonen, dreistimmi- 
gen Synthesizer, der in seinen unglaublich vie- 
len Möglichkeiten großen Systemen kaum 
nachsteht. 


SYNTHIMAT in Stichworten: 

drei Oszillatoren (VCOs) mit 7 Fußlagen und 8 
Wellenformen - drei Hüllkurvengeneratoren 
(ADSRS) - ein Filter (VCF) mit 8 Betriebsarten und 
Resonanzregulierung - VCF mit Eingang für 
externe Signalquelle - ein Verstärker (VCA) - 
Ringmodulation mit allen drei VCOs - 8 soft- 
waremäßig realisierte Oszillatoren (LFOS) - Kräf- 
tiger Klang durch polyphones Spielen - zwei 
Manuale (Solo und Begleitung) - speichern von 
bis zu 256 Klangregistern - schneller Register- 
wechsel - speichern von 9 Registerdateien auf 
Diskette - „Bandaufnahme* auf Diskette durch 
direktes Spielen - keine lästige Noteneingabe - 
speichern von bis zu 9 ,Bandaufnahmen’ je Dis- 
kette - integrierte 24 Stunden-Echtzeituhr - 
einstellbares PITCH-BENDING - farblich gekenn- 
zeichnete, übersichtlichangeordnete Module - 
umfangreiches Handbuch - läuftmiteinemDis- 
kettenlaufwerk - Diskettenprogramm. 


DM 99,- 





STRUKTO 64 


STRUKTO 64 ist eine fantastische neue Program- 
miersprache für strukturiertes Programmieren 
mit dem C-64 und für alleProgrammierer geeignet, 
die den C-64 als Allround-Computer einsetzen und 
auf einfache Weise anspruchsvolle Programme 
erstellen wollen. 


STRUKTO 64 In Stichworten: 
Interpretersprache, die dieVorzüge von BASIC und 
PASCAL vereint - strukturiertes Programmieren - 
übersichtliche Programme - leichte Eriernbarkeit 
- einfache Bedienung -eingebautesToolkit erleich- 
tert das Eingeben und Verbessern von Program- 
men - leichteres Arbeiten mit der Floppy - Sprite- 
Editor ermöglicht das Einlesen der Sprite-Formen 
direkt vom Bildschirm - Graphikbedienung wird 
mit gut durchdachten Befehlen unterstützt - 
Abspielen von Musik ist unabhängig vom Pro- 
grammablauf möglich -ca.80 neue Befehle -liefer- 
bar als Diskettenprogramm - ausführliches deut- 
sches Handbuch. 


DM 99,- 


NEL. 
EN 


Für viele ein Traum, für die meisten bisher zu 
teuer: die Rede ist von einer echten Datenbank 
für den 64er. SUPERBASE 64 füllt eine Lücke. 
Nicht allein die Kapazität, die verwaltet werden 
kann, bewegt sich in professionellen Regionen, 
die ausgeprägten Fähigkeiten des SUPERBASE 
64 im Rechnen und Kalkulieren lassen dieses 
Paket beinahe als Rund-Um-Software erschei- 
nen. 


SUPERBASE 64 In Stichworten: 
maximale Datensatzlänge 1108 Zeichen, verteilt 
auf bis zu 4 Bildschirmseiten - bis zu 127 Felder 
pro Datensatz, wobei Textfelder bis zu 255 Zei- 
chen lang sein können - insgesamt 15 Einzel- 
dateien können zu einerSUPERBASE-Datenbank 
verknüpft werden - Speicherkapazität nur 
durch Diskette begrenzt - umfangreiche Aus- 
wertungsmöglichkeiten und komfortabler 
Report-Generator - Kalkulationsmöglichkeiten 
und Rechnen - Import- (Einlesen von externen 
Daten) und Export- (Ausgabe von SUPERBASE 
Dataien als sequentielle Datei) Funktionen 
ermöglichen Datenaustausch mit anderen Pro- 
grammen - durch leistungsfähige, eigene 
Datenbanksprache auch als kompletter An- 
wendungsgenerator verwendbar. 


DM 398,- 





> 
MASTER 64 


MASTER 64 ist ein professionelles Programm- 
entwicklungssystem für den C-64, dases Ihnen 
ermöglicht, die Programmentwicklungszeit 
auf einen Bruchteil der sonst üblichen Zeit zu 
reduzieren. MASTER 64 bietet einen Programm- 
komfort, den Sie nutzen sollten. 


MASTER 64 In Stichworten: 

70 zusätzliche Befehle - Bildschirmmasken- 
generator - definieren von Bildschirmzonen - 
Eingabe aus Zonen - formatierte Ausgabe - 
Abspeicherung von Bildschirminhalten - Arbei- 
ten mit mehreren Bildschirmmasken - ISAM 
Dateiverwaltung, in der Datensätze über einen 
Zugriffschlüsselangesprochen werdenkönnen 
-Datensätze bis zu 254 Zeichen -Schlüssellänge 
bis zu 30 Zeichen - Dateigröße nur von Disket- 
tenkapazität abhängig - Zugriff über Schlüssel 
und Auswahlmasken - Bildschirm- und Druck- 
maskengenerator - Erstellung beliebiger For- 
mulare und Ausgabemasken - BASIC-Erweite- 
rungen - Toolkitfunktionen - Mehrfachgenaue 
Arithmetik (Rechnen mit 22 Stellen Genauig- 
keit). 


DM 198,- 


TEXTOMAT 


Das Bearbeiten vonTexten gehört zum wichtig- 
sten Betätigungsfeld von Homecomputer-An- 
wendern. So ist es auch nicht verwunderlich, 
daß eine UnzahlverschiedenerTextprogramme 
für den 64er angeboten wird. TEXTOMAT zeich- 
net sich dadurch aus, daß er auch vom Einstei- 
ger sofort benutzt werden kann. Über eine 
Menuezeile können alle Funktionen angewählt 
werden. Selbstverständlich beherrscht TEXTO- 
MAT deutsche Umlaute und Sonderzeichen. 





TEXTOMAT in Stichworten: 
Diskettenprogramm - durchgehend menue- 
gesteuert - deutscher Zeichensatz auch auf 
COMMODORE-Druckern Rechenfunktionen für 
alleGrundrechenarten -24.000 Zeichen pro Text 
im Speicher - beliebig lange Texte durch Ver- 
knüpfung - horizontales Scrolling für 80 Zei- 
chen pro Zeile - läuft mit1oder 2Floppies-frei 
programmierbare Steuerzeichen - Formular- 
steuerung für Randeinstellung u.s.w. - kom- 
plette Bausteinverarbeitung - Blockoperatio- 
nen, Suchen und Ersetzen - Serienbriefschrei- 
bung mit DATAMAT - formatierte Ausgabe auf 
Bildschirm - an fast jeden Drucker anpaßbar - 
ausführliches deutsches Handbuch mit 
Übungslektionen. 


DM 99,- 











PAINT PIC 


Malen ( mit dem Computer, welch eine faszinie- 
rende Idee. Mit dem Malprogramm PAINT PIC für 
den COMMODORE 64 wird diese Idee Realität. Mit 
PAINT PiCistesauch für den Einsteigerleicht, fanta- 
stische Computerbilder zu erstellen. Man kann die 
Bilder auf Diskette abspeichern und wieder laden 
und selbstverständlich steht auch weiterhin der 
COMMODORE-Zeichensatz zur Verfügung. Wichtig: 
PAINT PIC benötigt keine zusätzliche Hardware. 


PAINT PIC In Stichworten: 
Programmsteuerung: Tastatur - Steuerung des 
Stifts: Cursortasten und eckige Klammer (diag.) 
(Joystick kann benutzt werden) - Routinen: Linien, 
Rechtecke, Dreiecke, Parallelogramme, Kreise, 
Kreisbögen, Ellipsen, Bestimmung von Mittelpunkt, 
und perspektivischer Linie, Kopieren und Drehen 
von Teilbildern, Verdoppeln, halbieren und spiel- 
geln von Teilbildern - Modi: Malstiftmodus 
(schmale Linie) Pinselmodus (8 verschiedene Brei- 
ten) (Art der Linie selbst definierbar) — Textmodus 
(kompl. Zeichensatz COMMODORE) (Hoch-Tief- 
schrift) - Speichern: Teilbilder (Blöcke) oder ganze 
Bilder — Menue: 1 Hauptmenue mit8 Untermenues 
-mit ausführlichem deutschen Handbuch -Disket- 
tenprogramm - Bilder kann man auf Diskette 
abspeichern. 


DM 99,- 





PROFIMAT 


Wer sich tiefer in die Innereien des Computers 
begeben will, kommt ohne besonderes Werk- 
zeug nicht aus. Einerseitsmuß der volle Einblick 
in alle Speicherbereiche möglich sein, anderer- 
seits soll der Umgang mit Maschinenprogram- 
men so komfortabel wiemöglich gestaltetsein. 
PROFIMAT hat Lösungen für beide Probleme: 
Der Maschinensprache-Monitor PROFI-MON bie- 
tetalle Hilfsmittel zum Umgang mit Maschinen- 
programmen; PROFI-ASS ist ein Macro-Assem- 
bier, der das Schreiben von Maschinenpro- 
grammen fast so einfach macht wie das Pro- 
grammieren in BASIC. 


PROFIMAT In Stichworten: 
Registerinhalte und Flags anzeigen - Speicher- 
inhalte anzeigen - Maschinenprogramme 
laden, ausführen und speichern - Speicher- 
bereiche durchsuchen, vergleichen, füllen und 
verschieben - echter Einzelschrittmodus - Set- 
zen von Unterbrechungspunkten - schneller 
Trace-Modus - Rückkehr zu BASIC - formatfreie 
Eingabe - Verkettung beliebig vieler Quellpro- 
gramme - erzeugter Objektcode kann in Spei- 
cher oder auf Diskette gehen - formatiertes' 
Assemblerlisting - ladbare Symboltabellen - 
redefinierbare Symbole - Operatoren - Unter- 
stützung der Fließkommaarithmetik - be- 
dingte Assemblierung - Assemblerschleifen - 
MACROS mit beliebigen Parametern. 


DM 99,- 





KONTOMAT 


KONTOMAT ist ein menuegesteuertes Einnah- 
me-Überschußprogramm nach 8413) EStG mit 
Kassenbuch, Bankkontenüberwachung, auto- 
matischer Steuerbuchung, AFA Tabellenerstel- 
lung, Kontenblättern, Ermittlung der USt:Vor- 
anmeldungswerte und Monats- und Jahres- 
abrechnung. Der neue KONTOMAT ist voll para- 
meterisiert und läßt sich damit an Ihre Bedürf- 
nisse anpassen. Für alleGewerbetreibenden, die 
nicht laut HGB zur Buchführung verpflichtet 
sind. KONTOMAT ist für den gewerblichen Ein- 
satz, aber auch als Lernprogramm oder zur 
Haushaltsbuchführung geeignet. 


KONTOMAT in Stichworten: 
Diskettenprogramm - maximal 120 Konten - 
Beträge mit biszu 6Vor- und2Nachkommastellen - 
4 Mehrwert- und Vorsteuersätze - intervallmäßige 
Belegeingabe - 4 Buchungsarten (SOLL, HABEN, 
SOLL/HABEN und°HABEN/SOLL) - Anzeige der Soll- 
und Habensumme bei mehrfachen Buchungssät- 
zen - komfortable Belegeingabe mit Datum, 
Buchungstext, Stuerkennzeichen und Betrag - 
Druck des Journals während der Belegeingabe - 
Druck von umfangreichen Kontenblättern -Druck 
einer Summen- und Saldenliste mit Monats- und 
Jahresumsatzsummen - betriebswirtschaftliche 
Auswertung mit Druckausgabe - Ermittlung und 
Druckausgabe der Umsatzsteuerzahllast -Speiche- 
rung der Anlagegüter und automatische Abschrei- 
bung am Jahresende - übersichtliche AfA-Liste - 
arbeitet mit 1 oder 2Laufwerken - umfangreiches 
deutsches Handbuch. 


DM 148 - 





FAKTUMAT 


Mit FAKTUMAT ist das Schreiben von Rechnun- 
gen kein Alptraum mehr. Eine Sofortfakturie- 
rung mit integrierter Lagerbuchführung. Indi- 
viduelle Anpassung von Steuersätzen, Maßein- 
heiten und Firmendaten. Kunden- und Artikel- 
stamm voll pflegbar. Schneller Zugriff auf Kun- 
den- und Artikeldaten, über freidefinierbaren, 
6-stelligen Schlüssel. Automatische Fortschrei- 
bung von Artikel- und Kundendaten, individuell 
nutzbar. Alles in allem die Arbeits- und Zeit- 
ersparnis, die Sie sich schon immer gewünscht 
haben. 


FAKTUMAT In Stichworten: 

vollmenuegesteuert -läuft mit eineroder zwei 
Floppies - Diskettenwechsel (eine Floppy) nur 
beim Wechsel vom Hauptmenue ins Unterpro- 
gramm und umgekehrt - mit Ausnahme des 
Ausschaltens der Floppy während der Verarbei- 
tung werden alle Fehler abgefangen (z.B. Druk- 
ker nicht eingeschaltet - arbeitet mit 1525, 1526 
(?), MPS 801, EPSON Drucker und DATA BECKER 
Interface - voll parameterisiert: Firmenkopf, 
MWSt. und Rabattsätze, Größe der Dateien belie- 
big wählbar - 5 Zeilen für Firmenkopf je 30 
Zeichen (erste Zeile erscheint auf derRechnung 
in Breitschrift - 4 Mehrwertsteuer-Sätze; wäh- 
rend der Rechnungsschreibung können also 
Artikel mit unterschiedliichem Mehrwert- 
steuer-Satz verrechnet werden - 10 Rabatt- 
sätze (Rabattsatz 1 vorbelegt mit 0%), bei der 
Rechnungsschreibung kann jedem Artikel ein 
Rabattsatz zugewiesen werden - maximal 1900 
Artikel bei 50 Kunden oder 950 Kunden bei 100 
Artikel (max. Artikel = 11000-Kunden]+»2; max. 
Kunden = [2000-Artikell/2) - manuelle Eingabe 
von Artikeln und/oder Kunde während der 
Rechnungsschreibuna - d.h. es können mehr 
Artikel verrechnet weden als überhaupt in die 
Datei passen (bei Verzicht auf Lagerbuchfüh- 
rung) bzw. es können Rechnungen an Kunden 
geschrieben werden, die nicht erfaßt wurden - 


integrierte Lagerbuchführung mit Ausgabe 
einer Inventurliste - Rechnungsbeträge und 
Datum werden in der Kundendatei festgehal- 
ten - Druck von: Rechnung (mit Abbuchen aus 
Lager), Rechnung (ohne Abbuchen aus Lager), 
Lieferschein - deutsches detailliertes Hand- 
buch mit Übungs- und Anwendungsteil - 
deutsche Bedienerführung innerhalb des Pro- 
gramms (z.B. „Artikel nicht vorhanden‘ anstelle 
„RECORD NOT PRESENT"). 


DM 148,- 





UNI-TAB 


Heute schon die Bundesliga-Tabelle von morgen 
kennen, das geht mit UNI-TAB. AlleRechnereien, die 
man ohne dieses Programm nie machen würde, 
lassen sich in Sekundenschnelle durchführen. Wer 
will, kann mit simulierten Spielergebnissen den 
Weltmeister '86 vorausberechnen. Aber nicht nur 
Fußball-Ligen können tabellarisch erfaßt werden, 
fast alle Sportarten sind UNI-TAB-fähig. Gag am 
Rande: für viele Sportarten stehen die bekannten 
Piktogramme zur Verfügung. 


UNI-TAB In Stichworten: 

Menuesteuerung über die Funktionstasten mit 
leicht verständlichen Auswahlmöglichkeiten - 
Bedienerfreundlich (Mannschaften werden über 
Kennzahlen gesteuert) - Ligen mit 4 bis 20 Mann- 
schaften können verwaltet werden (6 bis 38 Spiel- 
tage möglich) - unsinnigeLigen (2.B.13 Mannschaf- 
ten sollen 5 Spieltage absolvieren) sind ausge- 
schlossen - favorisierte Mannschaft kann während 
des Programmablaufs durch reverse Darstellung 
gekennzeichnet werden - Tabelle kann geändert 
werden (wichtig bei Spielanullierungen) - drei ver- 
schiedene Tabellenarten können abgespeichert 
und später eingelesen werden (die aktuelle Tabelle 
lunabhängig von der Vollständigkeit eines Spiel- 
tagesl, der komplette Spieltag [Vollständigkeit und 
Nummer des Spieltages werden automatisch 
errechnet, die simulierte Tabelle (der Anwender 
kann so selbst Schicksal spielen und seinen Tip spä- 
ter mit dem tatsächlichen Geschehen verglei- 
chen) - zwei verschiedene Arten der Saisonüber- 
sicht (die statistische Übersicht zeigt an, welchen 
Tabellenplatz das jeweilige Team bei welchem 
Punkte- und Torverhältnis an den einzelnen Spiel- 
tagen einnahm; die graphische Übersicht zeigt die 
Leistungskurve jeder Mannschaft) - alle Tabellen 
und Graphiken sind als Hardcopy auf einem Druk- 
ker darstellbar - bei Fehlbedienung (z.B. ge- 
wünschte Druckausgabe bei nicht eingeschalte- 
tem Drucker) erscheinen leicht verständliche 
deutsche Fehlermeldungen. 


DM 69,- 
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SUPERGRAFIK 64 


Entdecken Sie die faszinierende Welt der Com- 
putergraphik mit SUPERGRAFIK 64, der starken 
Befehlserweiterung mit den vielseitigen Mög- 
lichkeiten. Durch die neue verbesserte Version 
jetzt noch leistungsstärker. 


SUPERGRAFIK 64 in Stichworten: 
2unabhängige Graphikseiten (320x200 Punkte) 
- logische Verknüpfung der beiden Graphiksei- 
ten (AND, OR, EXOR) - 1 Standard Low-Graphik 
Seite (80x50 Punkte) - Normalfarben Graphik 
(300 x 200 Punkte) - Multicolor-Graphik (160 x 200 
Punkte) - verdecktes Zeichnen (z.B. Text sicht- 
bar, Graphikseite 2 wird erstellt) -Textfensterin 
der Graphik - 183 Befehle und Befehlskombina- 
tionen (1. Für jeden Befehl wählbare Zwischen- 
modi: Zeichnen, Löschen, Punktieren, Graphik- 
Cursor bewegen, Zeichnen mit/ohne Farbset- 
zung, Punkte zählen; 2. Durch einfache Befehle 
zu steuernde Graphikfiguren: Punkt, Linie, 
Linienschar, Linie vom Graphik-Cursor, Kreise, 
Kreisbögen, Ellipse, Ellipsenbögen, selbstdefi- 
nierbare Figuren, rotieren und vegrößern die- 
ser Figuren, Rahmen, Feld, Text in Graphik; 3. 
Weitere Graphikbefehle: Graphikseiten- und 
Moduswechsel, Graphik löschen, Graphik inver- 
tieren, Scrolling von Text und Graphik, Wählen 
der Rahmen. Hintergrund- Zeichen- oder 
Punktfarbe) - Speichern, Laden von Graphik 
(auch verdeckt) - Kopieren des Textbildschirms 
in die Graphikseite - Hardcopies für EPSON, Sei- 
kosha GP100VC, Farb(ldrucker Seikosha GP700 
und andere mit DATA BECKER Interface - 16! 
Sprites gleichzeitig auf dem Bildschirm - alle 
Sprite-Eigenschaften veränderbar - Positionie- 
ren und Bewegen (!) von 16 Sprites gleichzeitig 
und unabhängig voneinander, während das 
übrige Programm weiterläuft (IRQ) -Sprite-Kol- 
lisionsüberprüfung, Joystickunterstützung - 
automatische Unterbrechung des BASIC-Pro- 
gramms bei Kollisionen (Interrupt), Sprung in 
Unterbrechungsroutine, dann Weiterführung 
des Hauptprogramms - komfortable Sound- 
programmierung mit Verstellung aller mög- 
lichen Sound-Parameter (Lautstärke, Klang, Fil- 
ter, Tonhöhe, Tonlänge), ebenfalls unabhängig 
vom übrigen Programmlauf - zahlreichen Pro- 
grammiertools (MERGE, RENUMBER usw.) - UM- 
fangreiche Anleitung - Diskettenprogramm. 


DM 99,- 


PASCAL 64 


Beim Wort „Compiler" fällt dem Eingeweihten 
sicher der Begriff „Geschwindigkeit“ ein. Ein 
PASCAL-Compiler sollte jedoch weitere Assozia- 
tionen wecken. Strukturiertes Programmieren 
heißt das Zauberwort. PASCAL wurde eigens zu 
didaktischen Zwecken entwickelt und erfüllt 


diese Aufgabe auch heute noch. Der PASCAL 64 
Compiler bringt diese phantastische Program- 
miersprache auf den 64er. 

Gerade die neue, verbesserte Version unter- 
stützt die Möglichkeiten des C-64 in jeder Hin- 
sicht und macht leistungsfähige Programme 
möglich. 





PASCAL 64 In Stichworten: 

besitzt einen sehr umfangreichen Befehlsvor- 
rat - erlaubt Interruptprogrammierung und 
bietet Schnittstellen zu Monitor und Assembler 
- erzeugt sehr schnelle Programme in reinem 
Maschinencode - unterstützt relative Dateiver- 
waltung, Graphik und Sound - bietet die Daten- 
typen REAL, INTEGER, CHAR und BOOLEAN sowie 
Aufzähltypen und POINTER, die zu Datenstruk- 
turen RECORD, SET, ARRAY und PACKED ARRAY 
kombiniert werden können - erlaubt vorzeiti- 
gen Abschluß von Prozeduren mit EXIT, unein- 
geschränkte Rekursionen und komfortableVer- 
arbeitung von Teilfeldern (Strings) - ist ein aus- 
gereiftes, deutsches Produkt und wird mit aus- 
führlichem Handbuch geliefert. 


DM 99,- 





DISKOMAT 


Der Umgang mit Diskettenlaufwerken ist für 
viele noch immer mit Geheimnissen belastet. 
Andere stören sich an den wenig komfortablen 
Diskettenbefehlen des BASIC V2. DISKOMAT 
bringt Abhilfe; alle Diskettenbefehle des BASIC 
4.0 stehen zur Verfügung. Außerdem können 
mit dem Programm SUPERTWIN zwei 1541-Lauf- 
werke wie ein Doppellaufwerk verwaltet wer- 
den. Für Benutzer, die sich die Fähigkeiten der 
Floppy 1541 ganz erschließen wollen, steht der 
DISK-MONITOR bereit; er macht es endlich mög- 
lich, den direkten Zugriff auf einzelne Blocks 
einfach und bequem vorzunehmen. 


DISKOMAT in Stichworten: 
Diskettenprogramm - DISK BASIC unterstützt 
Diskettenbefenle des BASIC 4.0 (CONCAT, 
HEADER, APPEND, RENAME, OPEN, COLLECT, 
DSAVE, SCRATCH, DCLOSE, BACKUP, DLOAD, DIREC- 
TORY, RECORD, COPY, CATALOG, DS & DS$) - SUPER 
TWIN behandelt 2 Laufwerke 1541 wie ein Dop- 
pellaufwerk -DISK-MONITOR ermöglicht direkte 
Analyse und Manipulation von Disketten (direk- 
tes Lesen und Schreiben einzelner Blöcke, 
ändern von Blöcken mittels Bildschirm-Editor, 
Anzeige des Diskettenstatus, direktes Absen- 
den von Disketten-Befehlen) - ausführliches 
deutsches Handbuch beschreibt jeden einzel- 
nen der 3 Programmteile. 


DM 99,- 





HAUSVERWALTUNG 


Jetzt können alle Hausbesitzer aufatmen: das Pro- 
gramm HAUSVERWALTUNG bietet ihnen eine sehr 
komfortable Verwaltung der Mietwohnungen mit 
dem COMMODORE 64. 

Alles, was Sie dazu brauchen, ist ein COMMODORE 64, 
ein Diskettenlaufwerk 1541, ein anschlußfähiger 
Drucker und das obengenannte Programm HAUS- 
VERWALTUNG. Die nachfolgenden und viele weitere 
leistungsfähige Features ermöglichen eineäußerst 
rationelle Verwaltung Ihrer Mietwohnungen. 


HAUSVERWALTUNG In Stichworten: 
Dikettenprogramm -Verwaltung von 50 Einheiten 
pro Objekt möglich - Stammdatenverwaltung für 
Häuser und Mieter - Verbuchen der Miete, Neben- 
kosten und Garagenmieten - Mietkontoanzeige - 
Haus- und Mieteraufstellung - Mahnungen - Ver- 
buchen der anfallenden Kosten - Kostengegen- 
überstellung - Jahresendabrechnung mit automa- 
tischem Jahresübertrag - umfangreiches deut- 
sches Handbuch. 


DM 198,- 





TRAININGSKURS zu ADA 


DieseProgrammiersprache.der Zukunft, diedas 
Pentagon in Auftrag gegeben hat, wird jetzt 
durch DATA BECKER auch dem C-64 Anwender 
zugänglich gemacht durch den TRAININGSKURS 
zu ADA, der eine sehr gute Einführung in diese 
Supersprache bietet. Der dazu gelieferte Com- 
piler liefert ein umfangreiches Subset der 
Sprache. 


ADA In Stichworten: 

blockstrukturierte Programme - modularer 
Aufbau der Programme - ermöglicht die 
Behandlung von Ausnahmezuständen -Fehler- 
überprüfung beim Übersetzen und zur Laufzeit 
- ermöglicht das einfache Einbinden von 
Maschinenprogrammen - sehr leichtes Arbei- 
ten mit Programmbibliotheken - Programm- 
diskette enthält Editor, Übersetzer, Assembler 
und Disassembler - umfangreiches deutsches 
Handbuch. 


DM 198, - 





DATAMAT 


Daten verwalten kann ein schier endloses Han- 
tieren mit Karteikästen und Aktenordnern 
bedeuten; kann aber auch C-64 plus DATAMAT 
heißen. Dann wird Suchen und Sortieren zum 
Spaß. Der DATAMAT bietet in seiner neuen Ver- 
sion einiges, was in dieser Preisklasse bisher 
unvorstellbar schien. Nicht nur Geschwindig- 
keit und Bedienungsfreundlichkeit wurden 
weiter verbessert, auch die Anpassung an die 
meisten Drucker ist inzwischen machbar. 


DATAMAT in Stichworten: 
menuegesteuertes Diskettenprogramm, da- 
durch extrem einfach zu bedienen - für jede 
Art von Daten - völlig frei gestaltbare Eingabe- 
maske - 50 Felder pro Datensatz - 253 Zeichen 
pro Datensatz - biszu 2000 Datensätze pro Datei 
je nach Umfang - Schnittstelle zu TEXTOMAT - 
läuft mit 1 oder 2 Floppies - völlig in Maschinen- 
sprache - extrem schnell - deutscher Zeichen- 
satz auch auf COMMODORE-Druckern -fastjeder 
Drucker anschließbar - ausdrucken über RS 232 
- duplizieren der Datendiskette - verbesserte 
Benutzerführung - Hauptprogramm komplett 
im Speicher (kein Diskettenwechsel mehr) - 
integrierte Minitextverarbeitung - deutsches 
Handbuch mit Übungslektionen 

Sie können: 

jeden Datensatzin2-3Sekundensuchen -nach 
beliebigen Feldern selektieren - nach allen Fel- 
dern gleichzeitig sortieren - Listen in völlig 
freiem Format drucken - Etiketten drucken. 
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ZAHLUNGSVERKEHR 


Umfangreicher Zahlungsverkehr kann zur 
Plage werden. Das Software-Paket ZAHLUNGS- 
VERKEHR übernimmt den größten Teil dieser 
Arbeit. Außer den notwendigen Fähigkeitenfür 
das Ausfüllen und Auflisten von Überweisun- 
gen und Schecks ist der ZAHLUNGSVERKEHR in 
der Lage, Sammellisten, Einzugslisten etc. selb- 
ständig zusammenzustellen. 


ZAHLUNGSVERKEHR In Stichworten: 
Diskettenprogramm - max. 100 Zahlungsemp- 
fänger pro Diskette - drei definierbare Absen- 
derbanken - 25 Zahlungsdateien - 14 frei defi- 
nierbare Formulare - Kontrolldruck bei Beleg- 
eingabe möglich - Eingabe von Rechnungs- 
daten oder eines Verwendungszwecks - AuS- 
druck einer Sammel-Überweisungsliste - Kor- 
rekturmöglichkeit der einzelnen Zahlungs- 
dateien -arbeitetmiteineroderzweirFloppies- 
umfangreiches deutsches Handbuch. ' 


DM 148 





